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ABSTRACT 

This  thesis  describes  a  component-based  methodology  for  developing  a  new  class 
of  systems  called  spatial  decision  support  systems  (SDSS).  The  methodology  is 
presented  within  the  context  of  the  development  of  the  ARIES  (Army  Reserve 
Installation  Evaluation  System)  software  application,  an  SDSS  designed  to  evaluate  and 
compare  site  desirability  for  Army  Reserve  unit  locations.  The  ARIES  SDSS  consists  of 
a  flexible  component-based  architecture  that  seamlessly  integrates  a  user  interface,  GIS, 
multi-criteria  decision  model  with  associated  DSS,  and  data  warehouse. 

To  build  the  SDSS,  the  ARIES  developers  introduced  a  new  architectural 
paradigm,  undertaking  a  collaborative  approach  with  U.S.  Army  Reserve  Command 
(USARC)  decision-makers  to  rapidly  prototype  ARIES  using  component-based 
technologies.  The  developers  implemented  several  domain-specific  architectures  using  a 
formalized  proof-of-concept  heuristic,  Concept-to-Code  (C2C),  which  conceptualizes 
user  requirements  in  architectural  terms,  and  migrating  legacy  data  sources  into  a  spatial 
data  warehouse. 

C2C  allowed  the  resultant  ARIES  application  to  be  conceptualized  initially  in 
general  terms,  and  then  specialized  architecturally  around  existing  off  the  shelf 
components,  as  design  requirements  were  collaboratively  prototyped  and  implemented 
within  the  existing  USARC  information  system  infrastructure.  C2C  facilitated  the 
complete  development  of  a  complex,  map-based  system  and  accompanying  data 
warehouse  in  the  span  of  a  few  months  with  a  technical  team  of  three  analysts  and 
programmers.  Significant  system  performance  gains  resulted  from  instituting  a  Migration 
Architecture  System  (MARS)  engine  to  extract  and  spatially  enable  relevant  data  sources 
for  geographic  querying.  Additional  performance  enhancements  were  also  obtained 
through  the  use  of  rapid,  component-based  development  techniques. 
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I.         INTRODUCTION. 


"There  is  nothing  more  difficult  to  take  in  hand,  more  perilous  to  conduct,  or 
more  uncertain  in  its  success,  than  to  take  the  lead  in  the  introduction  of  a  new 
order  of  things.  " 

Niccolo  Machiavelli,  The  Prince,  1532. 

"We  are  living  in  an  information  age  where  almost  everything  is  seen  as 
technically  possible  given  the  commitment  and  the  resources." 

Martyn  Jones, 

"Information:  It's  Architecture  and  Management",  1997. 

"We  can  no  longer  afford  stovepiped  systems.  And  it's  not  just  an  affordability 
issue,  it 's  a  warfighter  issue.  " 

General  Ronald  Griffith,  Vice  Chief  of  Staff  of  the  Army,  1997. 

A.       THESIS  OVERVIEW. 


The  primary  purpose  of  the  research  conducted  for  this  thesis  is  to  investigate  and 
document  the  architectural  approaches  used  in  developing  the  Army  Reserve  Installation 
Evaluation  System  (ARIES)  spatial  decision  support  system  (SDSS)  for  the  United  States 
Army  Reserve  Command  (USARC).  The  objective  of  ARIES  is  to  automate  the  process 
of  evaluating,  potential  relocation  sites  for  units  of  the  Army  Reserve  from  the  vantage 
point  of  military  readiness. 

Successful  implementation  of  the  ARIES  SDSS  could  greatly  assist  the  Army 
Reserve  in  its  effort  to  ensure  that  a  consistent,  analytical  approach  to  relocating  units  is 
adopted.  Additionally  it  would  also  significantly  reduce  the  time  spent  by  USARC 
decision-makers  manually  tracking,  calculating,  and  assessing  the  multiple  criteria 
relevant  to  each  facility's  site  desirability.  The  use  of  information  technology  (IT)  in  the 
form  of  an  architecturally-driven  prototype  application  can  improve  the  quality, 
timeliness,  and  accuracy  of  the  Army  Reserve  Unit  relocation  decision  specifically,  and 
of  similar  spatially  oriented  decisions  in  general. 


B.  THE  MOTIVATION  FOR  ARIES. 

The  sponsor  of  this  research  is  the  Force  Support  Package  (FSP)  Readiness 
Office,  a  hierarchical  component  of  USARC  based  in  Atlanta,  Georgia.  This  group  is 
tasked  with  properly  assessing  and  improving  the  military  readiness  of  priority  Troop 
Program  Units  (TPU).  In  the  spring  of  1996,  several  field-grade  officers  of  the  FSP 
approached  the  Naval  Postgraduates  School  (NPS)  building  a  decision  support  system  to 
automate  and  expedite  the  selection  process  for  relocating  Army  Reserve  units.  The 
manual  process  currently  in  use  is  unnecessarily  complex,  unwieldy,  and  limiting  for 
USARC  decision-makers,  and  a  technical  solution  offers  increased  degrees  of  freedom  in 
making  these  crucial  readiness  decisions. 

Under  the  mantra  of  "Resources  to  Readiness",  USARC  and  NPS  formed  a 
collaborative  partnership  to  explore  the  concept  of  automated  decision-making  for  site 
location  decisions.  The  research  project  was  undertaken  by  an  NPS  team  of  two 
academic  principal  investigators  and  three  application  developers.  This  team  identified 
location  as  one  of  the  critical  factors  affecting  unit  readiness,  and  based  upon  this 
assumption,  implemented  a  computer  based  decision  model  to  support  the  unit  relocation. 
A  spatial  decision  support  system  was  used  to  leverage  the  geographic  nature  of  the 
decision  problem. 

C.  OBJECTIVES,  SCOPE,  AND  METHODOLOGY. 

1.        Objectives. 

The  ARIES  application  was  accomplished  by  integrating  a  multi-criteria  Army 
Reserve  unit-decision  model  (ARU-DM),  over  a  dozen  USARC  data  sources  and 
geographic  information  system  (GIS)  into  a  SDSS.  The  SDSS  was  developed  using  rapid 


prototyping  based  upon  a  component-based  development  heuristic,  Concept-to-Code 
(C2C),  and  domain-specific  architectures.  The  design  heuristic  was  used  as  a  structured 
means  to  assist  the  end  users  in  conceiving  the  desired  system,  to  facilitate  development 
of  a  Data  Migration  Warehouse  (DMW),  and  to  enable  the  developers  in  systematically 
engineering  the  SDSS  application  to  fit  within  the  existing  USARC  Headquarters  IT 
infrastructure. 

The  objective  of  this  research  is  to  describe  how  the  C2C  approach  facilitated  the 
development  of  a  complex,  map-based,  multi-criteria  decision  support  system  with  a 
small  team  in  a  matter  of  months. 

2.  Scope. 

This  thesis  addresses  only  the  issues  involved  in  architecturally  developing  and 
implementing  the  ARIES  SDSS  using  component-based  technologies.  For  a  more 
complete  examination  of  the  issues  involved  in  framing  the  Army  Reserve  Unit  Decision 
as  a  Multi-Attribute  Utility  Theory  model,  refer  to  LCDR  Mark  A.  Murphy's  master's 
thesis  "An  Automated  Spatial  Decision  Support  System  for  the  Relocation  of  Army 
Reserve  Units'"  (Murphy,  1997).  Additionally,  the  development  of  the  Data  Migration 
Warehouse  was  spearheaded  by  LCDR  Robert  W.  Dill  and  the  issues  of  data  warehousing 
and  data  quality  are  discussed  in  his  master's  thesis  "Data  Warehousing  and  Data 
Quality  for  a  Spatial  Decision  Support  System  "  (Dill,  1997). 

3.  Methodology. 

The  primary  function  of  the  ARIES  SDSS  is  computation  of  the  twenty  decision 
parameters  identified  in  the  ARU  Decision  Model  from  the  extracts  of  designated  data 
sources  in  accordance  with  elicited  processes  and  user  selections.  USARC  specified  that 
the  ARIES  SDSS  should  access  only  the  existing  Information  Systems  (IS)  infrastructure 


and  historical  databases  as  the  primary  sources  for  computing  decision  model  parameters. 
This  avoided  the  need  for  additional  data  collection  and  data  normalization.  The  impact 
of  this  constraint  on  the  ideal  model  structure,  derived  from  user  specified  requirements, 
was  carefully  evaluated  and  implemented.  Managed  data  resources  were  properly 
identified  from  those  readily  available  to  USARC.  The  consolidation  of  multiple  sources 
into  an  appropriate  database  schema  for  this  software  application  presented  a  significant 
technical  programming  challenge. 

Due  to  the  limited  availability  of  programming  resources  and  user  specified 
requirements,  the  SDSS  needed  to  integrate  various  commercial  software  tools.  An 
RDBMS  and  a  DSS  were  combined  to  manage  and  manipulate  the  data.  Because  of  the 
spatial  significance  of  many  of  the  variables,  a  GIS  was  also  incorporated  for  both 
displaying,  selecting,  and  manipulating  the  information.  The  proposed  software  system 
contains  five  major  subsystems:  the  ARU  decision  model,  a  single  point  user  interface, 
data  migration  management,  geographic  information  system  (GIS),  and  a  client-server 
architecture  design. 

To  rapidly  accomplish  these  tasks  required  the  development  team  to  concurrently 
innovate  and  integrate  several  technical  disciplines  in  ways  not  previously  envisioned. 
The  final  result  was  a  SDSS  prototype  that  incorporates  the  leading-edge  aspects  of 
spatial  mapping,  geographic  selection,  data  warehousing,  and  decision  support 
technologies. 

Component-based  application  development  based  upon  a  systematic  and 
architecturally-driven  approach  was  used  in  developing  the  ARIES  SDSS  client-server 
architecture.  Rapid  prototyping  techniques  were  also  used  to  conceptualize  the  product 
design  in  accordance  with  user  requirements  and  provide  functionality  for  differing  levels 
of  detail  in  capturing  the  decision  knowledge. 


The  current  version  of  the  ARIES  SDSS  prototype  was  implemented  by  the  NPS 
development  team  using  Microsoft's  Visual  Basic  for  Applications  (VBA)  programming 
language  with  and  third-party  software  including  Maplnfo  Corporation's  integrated 
mapping  components,  Maplnfos'  Basic  development  language,  and  the  Logical  Decision 
for  Windows  (LDW)  decision  support  system.  The  SDSS  was  based  on  the  client-server 
computing  model  and  used  the  Microsoft  OLE  2.0  communication  protocol  as  the 
primary  means  of  component  communication. 

D.       ORGANIZATION  OF  THESIS. 

This  thesis  contains  useful  information  on  building  applications  using  component- 
based  development  from  a  software  architectural  point  of  view.  It  should  be  particularly 
valuable  to  decision-makers,  information  system  architects,  computer  programmers,  and 
data  managers.     The  balance  of  this  study  is  structured  into  several  modules  and 

organized  as  described  below: 

•  Chapter  II  -  Opens  with  a  futuristic  scenario  description  about  potential  uses 
for  next  generation  (NEXGEN)  versions  of  ARIES.  Additionally,  a 
background  discussion  is  provided  about  the  USARC  organization,  their  need 
for  a  SDSS  and  an  overview  of  the  intended  system. 

Chapter  HI  -  Discusses  the  benefits  of  using  component-based  development 
in  conjunction  with  a  new  software  architectural  paradigm  (Architectonic) 
through  the  use  of  a  design  heuristic  (Concept-to-Code).  This  chapter  closes 
by  describing  the  ARIES  SDSS  creation  using  the  design  heuristic. 

•  Chapter  IV  -  Discusses  the  lessons  learned  from  using  component-based 
development  and  rapid  prototyping  when  developing  complex  spatial 
applications  using  existing  infrastructure. 

Chapter  V  -  Provides  future  recommendations  for  further  study  and  presents 
the  conclusions  of  this  thesis  study. 


II.   BACKGROUND. 

"Nothing  is  Built  unless  it  is  Imagined  First.  " 

NRaD  "Command  Center  of  the  Future"  Motto. 

"Our  ability  to  imagine  complex  applications  will  always  exceed  our  ability  to 
develop  them.  "  Grady  Booch,  Object  Solutions,  1996. 

"The  hardest  single  part  of  building  a  software  system  is  deciding  precisely  what 
to  build:'  Fred  Brooks,  "No  Silver  Bullet",  1987. 

A.       FUTURE  SCENARIO. 

1 158  HRS:  Colonel  Jackson  R.  McMurdo,  Army  liaison  to  the  newly  formed 
BRAC  Commission  2000  on  active  and  reserve  Army  unit  basing  matters,  was  looking 
forward  to  devouring  his  pastrami  on  rye  when  the  phone  rang  unceremoniously.  He 
answered  impatiently  and  immediately  recognized  the  frantic  voice  of  Randolph  Braid, 
Senator  Jeremiad  Beauregard's  BRAC  aide.  McMurdo  knew  the  drill  without  hearing 
another  word.  As  the  BRAC  chairman,  the  senior  Senator  from  the  Southeast  was  taking 
considerable  heat  from  the  Senate  Armed  Services  Committee  about  closing  bases  V,  X, 
Y,  Z,  and  corresponding  Army  unit  relocation.  An  alternative  plan  consisting  of  only 
closing  bases  X,  Z,  and  adding  bases  W  and  U  had  been  suggested  by  the  Committee, 
wherein  the  displaced  Army  units  would  be  relocated  to  base  Y.  This  was  an 
unanticipated  scenario  based  on  previous  assumptions  and  findings,  and  the  Senator 
would  need  this  counter-proposal  analyzed  before  reconvening  within  the  hour,  or  the 
whole  BRAC  list  could  lose  the  full  support  and  recommendation  of  the  Armed  Services 
Committee. 

"How  does  it  look  if  we  keep  open  bases  V  and  Y  and  close  bases  U,  W,  X,  and 
Z?"  Braid  asked  breathlessly. 


"Off  the  top  of  my  head  it  appears  to  be  a  viable  alternative,  but  I'll  have  to  run  it 
through  the  SDSS  to  be  certain."  McMurdo  disliked  these  incessant  fire  drills  from 
Congress  and  let  his  pique  slip  ever  so  lightly  into  his  tone. 

"Jack,  we  need  you  to  disregard  the  condition  of  the  equipment  and  facility  age, 
and  focus  instead  on  civilian  employment  and  impact  on  the  community  at  large  if  those 
bases  are  closed  and  their  units  relocated." 

"Consider  it  done.  Just  ensure  the  Senator's  NetPC  PointCast  is  set  to  receive 
multi-broadcast  material  and  the  multimedia  presenter  is  in  automatic  mode." 

"Understand.  Thanks  Jack,"  said  Braid  contritely,  hanging  up  his  cellular  phone. 

1206  HRS:  Turning  in  his  chair  while  setting  his  lunch  aside,  Colonel  McMurdo 
stoically  started  his  wireless  laptop  and  logged  into  the  Pentagon's  DoD  Intranet. 
Accessing  the  U.S.  Army  website,  he  launched  the  "ARGIS  27"  applet  and  began 
configuring  the  network  user  interface  (NUI)  for  the  appropriate  mapping  component  and 
DSS  model  preferences. 

He  then  entered  the  Dept  of  the  Army  Data  Warehouse  and  chose  the  applicable 
DataMarts  and  databases  on  military  leadership,  readiness,  competition,  and  status-of- 
forces  to  be  integrated  with  the  OMB  Economic/Financial  databases  and  U.S.  Census 
Bureau  City /St  ate  Data  Warehouse. 

1209  HRS:  Selecting  the  "Build  Scenario"  function,  the  ARGIS  DataMigrator 
began  extracting  and  conditioning  the  desired  data  to  a  disposable  database  on  a  remote 
RDBMS  server.  Simultaneously,  the  ARGIS  Datalntegrator  began  creating  various 
communication  links  to  the  BRAC  decision  model,  spatial  mapping  components,  and  the 
new  BRAC  DataDepot. 

1217  HRS:  Colonel  McMurdo  graphically  chose  the  Army  units  and  bases  to  be 
evaluated  and  executed  the  scenario  analysis.  Using  remote  automation  workflow 
technology,  the  process  co-opted  idle  network  processors  to  achieve  a  standard  solution 
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in  two  minutes.  From  this  baseline  the  Colonel  reduced  the  weighting  on  facility  age  and 
condition  whiling  increasing  civilian  employment  valuations.  He  did  not  like  what  he 
saw. 

1221  HRS:  Defining  a  300  mile  radius  "what-if '  circular  analysis  polygon  around 
the  target  site,  the  Colonel  redirected  the  ARGIS  AI-Analyzer  to  determine  which  units 
must  be  moved  to  the  target  site  of  interest  to  achieve  the  desired  outcomes.  ARGIS 
reverse  engineered  the  spatial  environment  and  recommended  several  courses  of  action 
and  budgetary  schedules  to  achieve  the  objective  over  the  course  of  the  base  closing 
timeline.  This  looked  much  better.  McMurdo  recognized  the  resultant  solution  as  one 
minimizing  the  economical  impact  to  a  thriving  community.  He  reviewed  and  selected 
the  analysis  summaries  that  respectively  best  supported  and  contradicted  the  Committee's 
argument . 

1232  HRS:  Using  the  ARGIS  Animator,  he  converted  the  analysis  to  a  data 
visualization  movie  displaying  the  best  solution  with  different  color-coded  alternatives 
over  time  as  bases  closed  and  units  relocated.  He  graphed  the  economic  impact 
thematically  per  site  over  time  and  marveled  at  the  efficiency  of  the  system. 

1244  HRS:  The  telephone  rang  again.  It  was  Braid  once  more.  "Jack,  the 
committee's  reconvening  early!  What  have  you  got?  We  have  to  tell  them  something." 

"No  problem,  I  have  just  broadcast  the  textual  analysis  to  Beauregard's  NetPC  on 
the  Senate  floor  and  the  ARGIS  Solution  should  be  playing  on  the  large-screen  display  as 
we  speak."  McMurdo  was  calm  and  amused  as  he  noted  the  contrast  of  his  demeanor 
with  Braid's  anxiety. 

"Thanks  Jack,"  said  Randolph.  "You  saved  our  bacon  on  this  one." 

1701  HRS:  Jack  tuned  his  computer  into  the  Inet-CNN  broadcast  and  allowed 
himself  a  small  nod  of  satisfaction  to  see  the  lead  story  was  about  a  remarkable 
breakthrough  in  the  BRAC  closure  plan  impasse.    As  newscast  switched  to  the  ARGIS 


animation  film,  a  voice-over  announced  in  serious  tones,  "In  a  dramatic  eleventh  hour 
move,  a  compromise  was  reached  in  the  Senate  today." 

As  he  watched  the  screen,  his  mind  lamented  about  his  previous  assignment  to 
USARC  Headquarters  so  many  years  ago.  Catching  himself  smiling,  Jack  spoke  aloud, 
"Who  would  have  thought  the  progeny  of  the  ARIES  project  would  have  been  so.... 

B.       USARC  AND  READINESS. 

The  previous  scenario  may  seem  like  a  work  of  science  fiction,  but  given  the 
continued  proliferation  of  information-based  technologies,  this  future  may  be  a  lot  closer 
than  we  think.  Until  a  year  ago,  if  the  United  States  Army  Reserve  Center  (USARC) 
needed  to  move  a  reserve  unit,  the  analysis  to  manually  evaluate  several  alternatives 
required  a  Herculean  effort  on  the  part  of  the  Army  analysts.  The  proposed  site  selection 
process  could  take  up  to  30-40  days  to  develop  just  a  partial  solution.  This  was  due  to  the 
complexity  of  the  decision,  multiple  disparate  data  sources,  quantifying  subjective 
judgments,  and  analyzing  approximately  1300  possible  alternatives.  Today,  with  the 
successful  partnership  between  USARC  and  the  Naval  Postgraduate  School  (NPS),  the 
same  analysis  can  be  completed  in  minutes  using  a  deployed  stand-alone  Spatial  Decision 
Support  System  (SDSS)  called  ARIES,  that  shares  many  similar  concepts  to  ARGIS  21, 
only  in  a  more  primitive  and  prototypical  form.  The  ARIES  concept  consists  of  a 
delivery  portion  and  a  data  and  applications  portion.  The  delivery  system  includes  COTS 
hardware  and  software  that  provides  workflow  automation  by  calculating  design  model 
parameters.  The  data  and  application  software  satisfied  the  functional  requirements  for 
maintaining  the  data  sources,  automating  business  processes,  and  interfacing  with  the 
decision-makers. 

The  purpose  of  this  research  is  to  increase  readiness  using  Information 
Technology  (IT)  in  a  manner  that  will  dramatically  improve  the  process  used  to  select 
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relocation  sites  for  Army  Reserve  Units.  The  final  outcome  is  a  repeatable  and  accurate 
process  whose  cycle  time  collapses  from  40  days  to  an  average  of  eight  minutes  per  site 
selection  scenario. 

These  order-of-magnitude  improvements  in  analysis  capability  can  be  directly 
linked  to  the  decentralized  improvement  in  IT  practices  from  host-based  computing 
(mainframes)  to  a  distributed,  network-centric  computing  environment.  Computing 
environments  that  previously  were  relatively  simple  have  exploded  into  a  plethora  of 
networks,  clients,  servers,  and  component-oriented  systems.  Computing  complexity  has 
skyrocketed  and  with  it  the  future  potential  for  greater  usage.  Technological  choices, 
although  daunting,  have  now  begun  to  take  into  consideration  the  issues  of  scalability, 
extensibility,  and  an  increasingly  uncertain  future.  Technological  solutions  are  becoming 
the  means  to  effectively  and  efficiently  increase  military  readiness. 

At  the  1994  Software  Technology  Conference  in  Salt  Lake  City,  Utah,  the 

Honorable  Emmett  Paige,  Assistant  Secretary  of  Defense  for  C3I  illustrated  the  strong 

interdependence  that  exists  between  information  technology  and  military  readiness  in  his 

keynote  address: 

Software  drives  Military  Readiness.  As  such,  our  military  state  of 
readiness  is  changing  to  support  fighting  and  winning  two  major  regional 
conflicts  at  the  same  time.  As  the  world  situation  changes,  it  becomes 
increasingly  the  case  that  we  will  have  to  project  our  military  capability 
with  less  notice  and  more  precise  results.  The  Secretary  of  Defense  has 
made  it  clear  that  our  highest  priority  must  be  readiness.  We  must  get  our 
software  act  together... and  provide  the  support  that  our  war  fighters  need, 
wherever  they  are,  no  matter  how  short  a  notice.  And  we  must  proceed 
with  a  sense  of  urgency  in  making  our  software  become  predictable,  in  the 
sense  of  its  high  quality  and  high  contribution  to  the  defense  mission. 
(Paige,  1994) 

This  situation  presently  confronts  all  military  commands,  and  the  work  described 

in  this  thesis  takes  a  useful  step  forward  in  answering  the  challenge  of  increased  readiness 

for  the  U.  S.  Army  Reserve  Command. 
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1.        United  States  Army  Reserve  Command. 

Public  Law  101-510,  the  Defense  Authorization  Bill  of  November  5,  1990, 
provided  for  the  establishment  of  a  U.  S.  Army  Reserve  Command  under  the  command  of 
the  Chief  of  Army  Reserve  (Figure  2-1).  "Since  the  completed  transition  on  September 
30,  1992,  the  USARC  has  assumed  peacetime  command  and  control  of  all  United  States 
Army  Reserve  forces,  except  for  Special  Operations  elements  and  United  States  Army 
Reserve  forces  located  outside  of  the  continental  United  States"  (DOD  IG,  1993,  p.  12). 

The  Department  of  Defense's  1993  Inspector  General,  described  the  USARC 

mission  objectives  as  follows: 

•  "Command,  control,  support,  and  ensure  wartime  readiness  of  the  U.S.  Army 
Reserve  Forces. 

Organize,  train,  and  prepare  U.  S.  Army  Reserve  units  for  mobilization  and 
commitment  to  a  wartime  theater  of  operations. 

•  Manage  and  execute  all  Operations  and  Maintenance,  Army  Reserve  (OMAR) 
and  Reserve  Personnel,  Army  (RPA)  funds  allocated  by  Headquarters, 
Department  of  the  Army. 

•  Support  mobilization  as  directed  by  FORSCOM."  (DOD  IG,  1993,  p.  14) 

In  order  to  comply  with  these  ascribed  functions,  USARC  "...decision-makers 

must  be  able  to  effectively  manage  the  resources  supporting  readiness  and  mobilization 

preparedness"  (DOD  IG,  1996,  p.  22). 

The  capability  to  accomplish  this  goal  is  directly  related  to  the 
management  and  availability  of  information.  The  existing... Army  Reserve 
information  systems  are  unable  to  provide  timely  and  accurate  information 
to  decision-makers  to... [enable  either  unit  relocation  or]  mobilization 
planning... as  required  to  meet  contingency  plans.  (DOD  IG,  1996,  p.  22) 

The  Army  Reserve  Command  must  often  manually  compile 
information  requested  by  commanders  and  higher  headquarters. 
Additionally  updating  information  is  time  and  manpower  intensive  and, 
therefore,  is  often  not  done  as  frequently  as  needed.    (DOD  IG,  1996,  p. 

23) 
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Figure  2-1.  U.S.  Army  Reserve  Management  Structure. 
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With  the  1 994  Department  of  Defense  stipulation  to  buy  Commercial  Off-The- 
Shelf  (COTS)  technology  whenever  possible,  USARC  is  currently  migrating  its 
information  systems  and  networks  from  legacy  applications  and  databases  to  well- 
supported  commercial  software  suites  running  Microsoft  Windows  95  and  NT-based 
environments. 

Because  of  the  huge  expense  of  maintaining  and  operating  legacy  information 
systems,  limited  resources  are  available  for  new  application  development.  Failure  to 
think  strategically  about  software  development  has  lead  to  the  formation  of  many  stove- 
piped  applications  and  "data  silos  of  information."  In  order  to  counteract  this  downward 
spiral,  the  high  costs  of  these  systems  must  be  effectively  leveraged  using  commercial 
technology.  Instead  of  deploying  systems  that  meet  USARC's  short-term  needs,  USARC 
needs  to  develop  applications  capable  of  change  and  of  evolving  with  changing  business 
processes. 

In  response  to  this  challenge,  USARC  established  a  partnership  with  the  Naval 
Postgraduate  School  to  develop  an  Army  Reserve  Unit  Decision  Model  (ARU-DM)  and 
SDSS  prototype  to  automate  the  site  relocation  analysis  of  existing  reserve 
facilities/units. 

2.        Readiness  Issue. 

The  sponsor  of  this  research  is  the  Force  Support  Package  (FSP) 
Readiness  Office,  a  recently  formulated  component  of  the  U.S.  Army 
Reserve  Command.  This  group  is  tasked  with  assessing  and  improving 
the  readiness  of  priority  Troop  Program  Units  (TPU)  across  the  country. 

A  TPU  is  the  basic  building  block  of  the  Army  Reserve  force,  typically 
consisting  of  about  150  reservists.  The  TPU's  that  are  of  most  concern  to 
the  Readiness  Office  are  in  the  FSP,  which  are  the  units  designated  for 
rapid  deployment.  (Murphy,  1997,  p.  1) 

Military  readiness  can  be  classified  into  two  types,  operational  and  structural, 

which  differ  in  granularity  (Betts,  1995).    Operational  Readiness  deals  with  status  of 
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individual  units  whereas  Structural  Readiness  deals  with  the  overall  force  structure  in  the 
sense  of  "how  soon  a  force  of  the  size  necessary  to  deal  with  the  enemy  can  be  available" 
(Betts,  1995).  The  focus  of  this  research  is  on  the  operational  readiness  of  those  Army 
Reserve  units  scheduled  for  rapid  deployment.  In  this  context,  readiness  primarily  refers 
to  personnel  readiness,  the  ability  to  maintain  enough  properly  trained  and  qualified 
people. 

The  statistics  chosen  by  USARC  decision-makers  to  function  as  the  primary 
indicators  of  unit  operational  readiness  are  Fill  Level,  MOS  Qualification  Level,  and 
Turnover  Rate.  The  high  personnel  turnover  rates  recently  suffered  by  the  USAR  have 
significantly  reduced  readiness,  With  the  average  retraining  period  lasting  nine  to  ten 
months,  between  20  and  30  percent  of  the  required  positions  are  routinely  filled  by 
unqualified,  non-deployable  individuals  (Murphy,  1997,  p.  13).  Although  Military 
Occupational  Specialty  (MOS)  qualifications  are  not  always  a  direct  measure  of 
warfighting  capabilities,  unqualified  individuals  directly  diminish  the  number  of  soldiers 
available  to  supplement  active  forces. 

Performance  in  these  areas  can  be  related  to  numerous  location-dependent  factors, 
ranging  from  access  to  preferred  recruiting  markets  and  distances  to  various  training 
support  sites.  The  most  significant  location  related  factor  is  the  recruiting  market;  for 
unlike  the  active  services,  reserve  units  must  recruit  exclusively  from  the  local 
population.  When  a  unit  is  struggling  to  maintain  personal  readiness,  sometimes  the  best 
solution  is  unit  relocation.  This  thesis  is  based  on  the  "...premise  that,  holding  all  other 
readiness  variables  constant,  it  is  possible  to  improve  the  operational  readiness  of  some 
Army  Reserve  units  by  relocating  them  to  preferred  areas  as  indicated  by  a  variety  of 
location-related  attributes"  (Murphy,  1997,  p.  13). 
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3.        Army  Reserve  Unit  Decision  Model  (ARU-DM). 

Before  the  creation  of  a  manageable  model  could  proceed,  it  was  necessary  to 

clearly  define  the  TPU  relocation  problem. 

Although  US  ARC  representatives  suggested  a  variety  of  ways  in  which  to 
understand  the  importance  of  unit  location  (e.g.,  distances,  market 
supportability  areas,  overlap  between  units,  etc.),  it  quickly  became  clear 
that  the  primary  objective  was  to  relate  location  to  unit  readiness.  The 
decision  was  made  to  develop  a  [decision]  model  that  could  isolate  and 
evaluate  the  location  sensitive  portion  of  the  unit  readiness  problem. 
(Murphy,  1997,  pp.  19-20) 

"Our  methodology  was  to  interview  the  USARC  experts  to  determine: 

•  A  goals  hierarchy  consisting  of  intermediate  goals  and  decision  parameters, 

•  Tradeoff  functions  for  each  parameter  in  the  goals  hierarchy,  and 

•  [Identify  the  appropriate]  weights  for  each  of  the  parameters."  (Dolk,  et.  al., 
1996). 

Based  upon  the  concerns  and  priorities  of  the  USARC  experts,  the  NPS 
development  team  decomposed  the  overall  objective  of  Site  Desirability  into  twenty 
measurable  decision  parameters.  These  parameters  were  identified  as  objective, 
measurable  attributes  of  a  desired  site  location  and  loosely  grouped  together  in  three 
categories:  People,  Places,  and  Things  (Table  I). 


Competition 
Area  Drill  Attendance 
Area  Loss  Rate 
Area  Transfer  Rate 
Average  Area  Manning 
Closing  Unit  Transfers 
IRR  Available 
Recruit  Market 
Reassignments 

PLACES 

Facility  Age 

Facility  Backlogged  Maintenance 

Facility  Condition  (RED  /  AMBER  /  GREEN) 

Facility  Operating  Costs 

Facility  Government  Owned  (Y/N) 
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Facility  Weekend  Usage 

THINGS 

Distance  to  Recruiter 
Distance  to  AMSA 
Distance  to  ECS 
Available  MOS  Closing 
Available  MOS  IRR 

Table  I.  Army  Reserve  Unit  Decision  Model  (ARU-DM). 

a.  General  Assumptions 

Although  this  modeling  effort  "...does  not  provide  a  rigorous,  causal 

model  of  readiness,  it  is  assumed  that  the  hierarchy  of  screening  factors  provides  a 

meaningful  assessment  of  the  propensity  of  a  given  location  to  support  the  achievement 

of  high  levels  of  readiness"  (Murphy,  1997,  p.31).    For  the  ARU  decision  model,  the 

expert  panel  assumed  that  the  basis  for  evaluation  would  be  a  single  reserve  unit.    One 

alternative  to  this,  relocating  a  portion  or  derivative  of  a  unit,  may  sometimes  be  more 

appropriate,  but  this  was  not  considered  in  the  decision  model.  Secondly,  derived  reserve 

unit  metrics  had  to  be  calculated  directly  from  data  sources  available  on  the  USARC  local 

area  network  which  would  be  implemented  in  the  final  application.   Lastly,  the  "area  of 

the  proposed  site"  refers  to  the  region  within  50  miles  of  the  zip  code  centroid  center  in 

which  the  proposed  site  is  located. 

This  proposed  location  will  have  little  or  no  influence  on  where  people 
chose  to  live.  People  will  not  move  just  to  be  closer  to  the  unit  or  relocate 
when  the  unit  does.  (Murphy,  1997,  p.  30) 


b. 


Goals  Hierarchy 


Using  the  identified  decision  parameters,  the  ARU  relocation  decision  was 
structured  into  a  goals  hierarchy  using  Multi-Attribute  Utility  Theory  (Figure  2-2). 
Location  data  are  extracted  and  conditioned  from  USARC's  corporate  data  sources  and 
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Figure  2-2.  ARU  Decision  Model  Hierarchy  of  Goals.  Each  component  of  the 
hierarchy  is  organized  by  its  type  (goal,  subgoal,  or  parameter)  and  identified  by  the 
hierarchical  level  at  which  it  exists.  Within  each  section,  components  are  listed 
alphabetically  and  levels  are  ordered  from  top  to  bottom.  After  (Murphy,  1 997) 
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converted  to  common  units  of  reference  using  twenty  different  utility  function  curves. 
There  was  one  utility  curve  developed  for  each  decision  parameter.  The  outputs  of  these 
utility  functions  are  repeatedly  combined,  based  on  the  hierarchical  structure  of  the  ARU- 
DM  and  the  relative  weights  elicited  from  the  experts,  to  produce  the  overall  scores  used 
to  rank  the  alternative  sites. 

c.  DSS  Software  Component 

The  COTS  software  package  selected  by  the  NPS  Development  Team  for 
implementing  the  ARU-DM  was  Logical  Decisions  for  Windows  (LDW).  It  was  chosen 
as  the  DSS  software  component  "...primarily  because  it  supports  explicit  specification  of 
tradeoff  functions  for  each  parameter  as  well  as  five  different  decision  analysis 
techniques,  both  quantitative  and  qualitative"  (Dolk,  et.  al.,  1996). 

4.        USARC  Source  Data. 

The  SDSS  prototype  was  originally  implemented  as  a  stand-alone  Windows  95 
version  but  is  currently  operating  in  a  Windows  NT  environment  on  the  USARC 
Headquarters'  Local  Area  Network  (LAN).  One  of  the  stipulated  pretexts  of  the 
prototype  was  that  the  databases  currently  present  on  the  USARC  LAN  are  the  only  data 
sources  eligible  for  deriving  ARU-DM  parameters.  The  primary  reason  for  this  is  that 
USARC  wanted  to  be  able  to  deploy  the  SDSS  application  without  having  to  shift  the 
burden  of  administratively  supporting  it  to  the  USARC  IS  Staff. 

The  native  data  sources  are  composed  of  a  multitude  of  large  multi-vendor 
databases  (Table  II).  These  databases  are  mostly  flat  file  structures  that  were  haphazardly 
instituted  to  support  several  independent  USARC  applications  as  they  were  deployed  on 
the  LAN.  Some  of  the  files  are  ad  hoc  derivatives  of  larger  off-site  mainframe-based 
databases,    periodically    updated    from    USAR    Headquarters    in    Washington,    D.C. 
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Ownership  and  maintenance  of  the  local  data  sources  is  distributed  amongst  the  primary 
user  base  of  the  stove-piped  applications  (Appendix  A).  Additionally,  there  is  no 
centralized  data  dictionary  or  repository  maintained  for  the  data  sources  or  the  metadata 
that  constructs  them.  Consequently,  there  is  little  consistency  between  the  data  source's 
design,  structure,  format,  or  key  index  fields.  Database  field  names  are  different  for 
similar  data  sets,  and  most  of  the  files  contain  incomplete,  inaccurate,  and  missing  data. 
This  complete  lack  of  common  institutional  data  standards  greatly  complicated  the 
development  of  an  integrated  data  framework  for  the  SDSS  prototype  (Figure  2-3).  To 
compensate  for  this  unexpected  lack  of  data  quality  and  to  provide  a  stable  baseline 
database  for  deriving  the  decision  parameters,  the  development  team  was  compelled  to 


FILENAME 

SOURCE 
TYPE 

LAST 
UPDATE 

FILE  SIZE 

No.  RECORDS 

AMSA 

PLACES 

1 7  AUG  96 

26  KB 

190 

CMD  PLAN 

PLACES 

17  OCT  96 

3.29  MB 

9,897 

COMPLEX 

THINGS 

19  NOV  96 

2.10  MB 

1,557 

ECS 

PLACES 

22  AUG  96 

4KB 

30 

FINANCE 

THINGS 

02  JUL  97 

83.4  MB 

311,793 

FPS 

THINGS 

15  JUL  96 

88  KB 

1,561 

FyxxLOSS 

PEOPLE 

05  AUG  97 

85.4  MB 

132,417 

G17 

PLACES 

01  MAR  97 

3.11  MB 

5,869 

G18CWE 

PEOPLE 

03  DEC  96 

145.87  MB 

208,416 

G19TRUH 

PLACES 

03  DEC  96 

14.35  MB 

233,211 

GEOREF 

PLACES 

02  FEB  97 

213KB 

1,553 

INTEREST 

THINGS 

13  MAY  96 

4.19  MB 

3,985 

1RR 

PEOPLE 

06  FEB  97 

7.53  MB 

140,077 

NGNON  CL 

PEOPLE 

09  FEB  97 

636  KB 

3,673 

QMA 

PEOPLE 

14  JAN  97 

2.8  MB 

34,265 

RPINFODT 

'THINGS 

07  APR  97 

14.33  MB 

47,159 

RZA 

PLACES 

28JUN96 

157  KB 

1,793 

Table  II.  Source  Data  Tables. 

concurrently  design  and  implement  a  Migration  Architecture  System  (MARS)  engine, 
and  a  data  migration  warehouse  (DMW)  variant  —  DataDepot  (Figure  2-4). 
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Figure  2-3.  SDSS  Disparate  Data  Sources  Flow  Diagram 
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Figure  2-4.  SDSS  Migrated  Information  Flow  Diagram 
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5.         Information  Systems  Challenge. 

Because  the  entire  TPU  relocation  decision  incorporates  such  a  large  number  of 
parameters,  it  is  nearly  impossible  for  an  unaided  human  decision-maker  to  fully  consider 
all  relevant  factors.  In  the  past  these  decisions  were  typically  based  upon  a  combination 
of  intuition  and  experience,  but  this  ad  hoc  process  was  often  difficult  to  build  a 
consensus  for,  communicate,  and  defend. 

Frustrated  with  the  inadequacies  of  the  approach  to  such  a  complicated  problem, 
the  large  number  of  characteristics  per  facility,  the  number  of  analyses  required,  and  over 
1300  facilities  to  evaluate,  the  Army  Reserve  believed  it  could  deliver 
morecomprehensive  relocation  decisions  by  applying  a  Geographic  Information  System 
(GIS)  and  decision-support  technology  to  the  relocation  decision  process.  In  addition  the 
decision  support  technology  had  to  allow  the  USARC  decision-maker  to  perform  a 
variety  of  ad  hoc  analyses  of  multiple  readiness  factors  to  ensure  that  the  relocation 
recommendation  was  truly  warranted  and  was  in  the  best  interest  of  the  moving  unit. 
This  was  the  inspiration  for  a  fully  automated  software  application  that  could  select, 
calculate,  and  deliver  spatially-oriented  decision  data  to  the  ARU  Decision  Model.  This 
visionary  aspect  of  the  NPS  Initiative,  "A  Geographic  Information  System  Approach  to 
USAR  Unit  Readiness,"  inspired  the  development  of  just  such  an  application  —  the 
Army  Reserve  Installation  Evaluation  System  (ARIES). 

In  order  to  minimize  application  development  time  and  maximize  previous 
USARC  computing  investments,  it  was  important  that  the  automated  ARIES  system 
utilize  the  USARC  IS  infrastructure,  COTS  applications,  and  historical  databases  as  the 
primary  components  for  computing  the  decision  model  factors  (Figure  2-5). 
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Figure  2-5.  ARIES  Conceptual  Infrastructure  Diagram. 

Additionally,  the  NPS  development  team  also  wanted  to  prevent  the  construction 
and  deployment  of  yet  another  requirements-driven  stove-piped  application  (Figure  2-6), 
instead  building  one  that  was  architecturally-driven  (Figure  2-7).  By  this  I  mean  an 
application  in  which  the  specific  requirements  are  traceable,  the  architecture  is  not 
resistant  to  change,  and  the  coding  is  kept  to  minimum  by  leveraging  the  existing 
software  infrastructure.  This  is  the  real  challenge  of  developing  the  USARC  SDSS 
application. 

To  accomplish  this  requires  a  fundamental  shift  in  the  way  developers  think  about 
and  design  integrated  software  applications.  Instead  of  focusing  on  the  problem  as  "a 
simple  matter  of  programming,"  the  development  team  would  focus  on  the  problem  as  a 
complex  systemic  concept  with  interdependent  resources  and  corresponding  rule-based 
processes.  To  manage  this  approach  effectively  requires  a  new  rational  design  process  — 
the  process  is  partially  proof-of-concept  exploitable,  fully  component-oriented,  and 
architecturally  re  finable. 
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Figure  2-6.  The  Structure  of  Requirements-Driven  Projects. 
After  (Booch,  1996,  p.  15) 


In  the  next  chapter  we  will  investigate  the  reasons  for  focusing  our  development 
efforts  on  architectural  design  and  implementation,  develop  a  component-based  heuristic 
that  incorporates  architecturally-driven  concepts,  and  specifically  discuss  the  application 
development  and  implementation  issues  that  went  into  designing  and  building  the  ARIES 
SDSS  prototype. 
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Figure  2-7.  An  Architecture-Driven  System. 
After  (Booch,  1996,  p.  52) 
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III.      ARIES  APPLICATION  DEVELOPMENT. 


"He  who  does  not  lay  his  foundations  beforehand  may  by  great  abilities  do  so 
afterwards,  although  with  great  trouble  to  the  architect  and  danger  to  the 
building."  Niccolo  Machiavelli,  The  Prince,  1532. 

"New  information  technologies  gradually  give  birth  to  new  activities,  processes, 
and  products."  John  Naisbitt,  Megatrends,  1982. 

"By  1999,  component  software  will  be  the  dominant  method  of  new  application 
development  (0. 7  probability)"  Roy  Schulte,  Gartner  Group. 


A.       INTRODUCTION. 

There  is  no  single  product,  book,  management  style,  or  "silver  bullet"  that 
magically  leads  the  developer  or  development  team  through  a  painless  application 
development  process.  "But  a  sensible  use  of  productive  complementary  tools  and 
techniques,  and  a  shift  to  a  paradigm  with  proven  advantages  can  over  time  yield  the 
desired  results"  (Tkach,  1996,  p.  xiii).  In  the  absence  of  any  singular  solution,  the  ARIES 
project  used  a  "proof-of-concept"  heuristic,  Concept-to-Code  (C2C),  to  guide  the 
development  team.  C2C  provided  the  structural  perspective  needed  to  manage  USARC's 
requirements  and  the  implementation  of  the  decision  model  into  a  cohesive,  integrated 
prototype  using  various  COTS  products,  a  fourth-generation  language,  and  existing 
infrastructure. 

This  chapter  begins  with  an  overview  of  component-based  development  and  the 
new  computing  paradigm  shift  it  ushers  forth.  Next  is  a  discussion  of  the  generic 
requirements  of  each  of  the  C2C  phases,  stages,  and  artifacts,  and  the  corresponding 
ARIES  implementation.  The  final  major  section  is  a  summary  of  the  ARIES 
implementation  using  the  C2C  heuristic  process. 
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B.   BACKGROUND. 

1.        Software  Development:  A  Brief  History  Lesson. 

Prior  to  the  1990's,  software  development  consisted  primarily  of  programmers 

and  developers  using  conventional  software  development  models  (waterfall,  incremental, 

spiral)  to   build   applications   with   procedural   techniques.      The   majority   of  these 

approaches    involved    the    systematic    use    of   five    basic    steps:    analysis,    design, 

implementation,  testing,  and  maintenance.    This  was  usually  sufficient  as  long  as  the 

users'    requirements    were    clearly    defined,    system    architectures    were    understood, 

complexity  was  low,  and  product  delivery  cycle  was  measured  in  years. 

One  problem  with  the  conventional  'waterfall'  software  development 
process  is  that  in  some  situations  it  may  not  be  possible  to  define  the 
software  requirements  fully  at  the  beginning  of  the  software  development 
effort.  Another  problem  is  that  there  may  be  a  significant  risk  that  the 
design  approach  created  to  satisfy  the  requirements  may  be  inadequate.  A 
final  problem  is  that  the  user  only  receives  the  software  at  the  end  of  the 
complete  and  lengthy  process;  the  user  may  need  this  capability  at  an 
earlier  time.  (USAF-STSC,  1992,  p.  15). 

Conventional  software  practices  exploited  "...the  idea  that  if  developers  can  get  perfect 

specifications  up  front,  the  end  result  will  be  a  perfect  application"  (Whitten  et.  al.,  1994). 

Today  this  not  the  case.    As  computing  power  and  user  capabilities  have  increased  with 

technological  change,  the  following  phenomena  transpired: 

•  The  application  development  process  has  become  more  complex  today  than  a 
decade  ago  (Tkach,  1996,  p.  17). 

•  "Line-at-a-time  programming  is... increasingly  being  replaced  by  point-and- 
click  visual  development  environments"  (Sarna  and  Febish,  1996,  p.  27). 

•  "Interactive  GUI,  distributed... processing,  very  large  integrated... databases 
[and]  heterogeneous  environments...."  have  become  the  norm.  (Tkach,  1996, 
p.  17). 
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Additionally,  most  users  have  become  accustomed  to  a  window-oriented  user 
interface  (U/I),  and  subsequent  interface  expectations  have  risen  accordingly.  The 
application  development  process  '\..has  evolved  to  the  point  that  it's  becoming  entirely 
GUI-based  and  built  up  from  components  using  techniques  of  rapid  application 
development"  (Sarna  and  Febish,  1996,  p.  27).  Complex  GUIs  are  becoming  standard 
requirements  that  are  not  easily  accomplished  with  current  techniques.  The  software 
development  methods  of  the  past  are  insufficient  to  develop  rapidly  the  scalable, 
extensible,  and  flexible  applications  demanded  by  organizations  today.  Speed  of  delivery 
and  completeness  of  stated  requirements  are  the  mantra  driving  the  "solution  du  jour." 

Currently,  organizations  want  software  development  to  take  into  account  the 
hundreds  of  millions  of  dollars  invested  in  building  IT  infrastructure,  computing  capacity, 
and  the  resultant  morass  of  accumulated  data.  The  "waterfall"  models  have  failed  to 
provide  the  "silver  bullet"  solution  to  application  development  in  today's  "Buy-It  versus 
Build-It"  mentality.  In  turn,  they  have  become  the  legacy  methodologies  of  the  same 
legacy  data,  applications,  and  systems  they  helped  to  create.  A  better  solution  needs  to  be 
found.  One  answer  lies  in  the  increasing  popularity  of  component-oriented  computing; 
with  the  continued  maturation  of  the  software  industry,  component-based  development  is 
now  seen  "as  an  important  step  toward  the  industrialization  of  software  that  can  help  to 
transform  programming  from  an  arcane  craft  to  a  systematic. ..process"  (Taylor,  1991,  p. 
iii). 

2.        Component-Based  Revolution 

Component-based  development,  the  ability  to  design  and  build  from  definable 
objects  without  the  benefits  of  inheritance  or  polymorphism,  is  ready  to  be  the  next  great 
advance  in  software  development.  Although  the  concept  of  constructing  applications 
with  reusable  code  as  been  available  since  the  object-oriented  revolution,  it  is  only  just 
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recently  that  critical  mass  has  occurred  in  the  computing  industry.  The  pieces  are  in  place 
for  component-based  application  development  to  achieve  mainstream  status  amongst 
today's  IT  organizations.  (Chappell,  1997,  p.  1) 

The  major  reasons  for  this  are: 

•  The  growing  use  and  acceptance  of  Microsoft's  Component  Object  Model 
(COM)  as  the  dominant  standard  for  PC-based  component  computing. 

•  Components  are  moving  off  the  desktop  and  beginning  to  play  an  important 
role  in  the  creation  of  client/server  applications. 

•  Broad  support  for  designing  and  developing  components  and  component- 
based  applications  with  third-party  tools  and  languages.    (Chappell,  1997,  p. 

3) 

As  a  developmental  process,  component-based  development  (CBD) 
"...will  supplant  earlier  programming  archetypes,  such  as  structured 
programming  and  object-oriented  programming,  as  the  approach  most 
likely  to  yield  significant  productivity  and  reusability  benefits.  Its 
emphasis  on  iteration  sounds  the  death  knell  for  the  traditional  'waterfall' 
model  of  the  entire  development  process.  One  of  the  reasons  that  CBD 
will  gain  broad  acceptance  is  that  it  offers  ways  to  address  the  complete 
range  of  software  challenges,  from  operating  system  services  to 
client/server  development."  (Spitzer,  1997). 

Component-based  development  is  not  without  its  own  baggage,  however.  As 
more  and  more  organizations  and  vendors  shift  their  focus  to  take  advantage  of  this  new 
wave  in  computing,  the  more  susceptible  they  will  become  to  the  unintended 
consequences  of  the  "revolution."  One  of  the  biggest  challenges  in  the  component- 
oriented  "revolution"  so  far  is  the  utter  lack  of  any  kind  of  established  methodology  for 
effectively  guiding  the  conceptualization,  analysis,  and  implementation  of  a  user-centric 
application,  or  managing  component-based  construction  from  infrastructure  components. 

Additionally,  there  is  not  a  widely  accepted  standards-based  component 
architecture  from  which  to  develop  applications.  Compounding  this  problem  is  the  fact 
that  almost  every  component-oriented  solution  is  unique  in  its  configuration  and 
implementation.    Traditional  software  development  methods  do  not  apply.  The  model 
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currently  most  applicable  is  the  one  an  organization  develops  for  its  own  IS  operations 
and  IT  environment  (Hamilton,  1994,  p.  43). 

The  other  reality  is  that  open  component  architectures  —  with  their 
interdependent  servers,  databases,  clients,  and  protocols  —  have  a  multitude  of  potential 
connection  point  failures"  (Hamilton,  1994,  p.  43).  Although,  we  are  still  better  served 
by  past  software  development  practices,  it  continues  to  remain  horribly  expensive  to 
construct  custom  software  for  automating  a  particular  organization's  unique  business 
processes  (Udell,  1994,  p.  47).  "...Today's  major  problems  with  software  [development] 
are  not  technical  problems,  but  management  problems"  (DOD-USD,  1 987).  Developers 
need  an  efficient  means  in  which  to  manage  and  "pre-engineer"  modular  applications, 
databases,  and  information  flows  prior  to  deployment  in  a  real  world  environment. 
Because  the  systematic  construction  of  complex  software  applications  from  existing 
components  remains  an  ever  elusive  goal  (Garlan  et.  al.,  1995,  p.  17). 

From  a  technical  perspective,  a  combination  of  component-based  development 
and  the  latest  advancements  in  software  architecture  such  the  ARIES  SDSS  is  required. 

The  prerequisites  for  this  would  need  to  include: 

•  A  widely  accepted  component-oriented  infrastructure. 

•  Standard     Domain-Specific     Software     Architectures     (DSSA)     to     guide 
development  and  enable  rapid  assembly. 

•  Commercial  and  technical  environments  that  fully  support  CBD  integration. 

This  alone  may  be  the  most  important  paradigm  shift  in  software  development  in 
decades.  The  dawn  of  the  "industrial  revolution  of  software,"  whereby  software  products 
are  manufactured  in  accordance  with  a  specified  structure  and  process,  is  upon  us. 
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3.        Architectonic  Paradigm:  The  Shift  to  Structure 

"Today  the  term  [paradigm]  is  widely  used  to  define  a  broad  model,  a  framework, 

a  way  of  thinking,  or  a  scheme  for  understanding  reality"  (Tapscott,  1993,  p.  xii).    The 

Architectonic  Paradigm  —  of  or  pertaining  to  principles  of  architecture  —  mandates  a 

shift  in  conventional  thinking  about  how  developers  build  applications.    It  requires  an 

architectural  approach  that  spans  both  the  business  and  technical  arenas,  and  that  adopts 

the  perspective  of  software  construction  not  as  a  craft  but  as  a  discipline  (Davis,  1995). 

This  new  paradigm  consists  appropriately  of  the  following  aspects: 
Simplicity  -  easy  to  comprehend  and  communicate. 

Task-centric  -  must  map  naturally  to  the  customers'  world. 

Changeable  -  enable  rapid,  flexible,  and  scaleable  paths. 

Manageable  -  support  heterogeneous  platforms,  applications  and  architectures. 

Leverageable  -  migrate  legacy  systems  and  support  COTS  integration. 

In  short,  the  Architectonic  Paradigm  is  one  in  which  the  overall  focus  shifts  from 
requirements-driven  to  architectural-driven  development.  It  "has  all  the  benefits  of 
requirements-driven  style,  as  well  as  the  favorable  characteristic  of  encouraging  the 
creation  of  resilient  frameworks  that  can  withstand  shifting  requirements  and 
technological  calamity"  (Booch,  1996,  p.  21).  But  the  days  of  designing  an  information 
system  in  a  vacuum  are  over.  The  problems  of  today  are  up  to  50  times  larger  in 
complexity  than  the  problems  of  yesteryear,  and  the  difficulty  of  developing  "good 
enough"  solutions  is  growing  at  an  exponential  rate.  The  developer  is  always  trying  to  fit 
a  new  piece  into  a  puzzle  that  has  already  been  framed  and  to  deal  with  quirky  methods  of 
interfacing  with  the  database(s).  A  developer  can  no  longer  afford  to  build  software 
applications  from  scratch  without  duly  considering  the  existing  infrastructure  and  several 
components   —   which    are   themselves    architectures    (information,    application,    and 
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technical)  —  contained  within  the  structure.     The  Infrastructure  investment  holds  a 
central  position  in  any  planned  and  future  application  development  (Figure  3-1). 
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Figure  3-1.  An  Architecture-Driven  System.  After  (Booch,  1996,  p.  52). 
4.        Infrastructure:  The  Invisible  Hand  of  Structure 

The  previous  chapter  briefly  introduced  the  notion  of  architecture-driven 
programming  and  illustrated  how  it  relates  to  infrastructure.  The  central  idea  is  to 
encourage  the  minimal  programming  of  new  applications  by  using  software  architectures 
and  COTS  products  already  present  within  the  desired  operating  environment.  An 
example  in  a  Windows-based  environment  would  be  to  develop  an  application's  U/I 
using  Window's  API  routines  rather  than  creating  new  objects  and  classes  in  the  C++ 
language.  Additionally  the  use  of  validated  infrastructure  components  require  that  new 
applications  only  need  to  be  tested  at  the  points  of  interaction  between  existing 
components  and  thoroughly  tested  for  any  custom  designed  components.  This  allows  the 
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developer  to  safely  assemble  and  application  as  opposed  to  building  it.  The  guiding 
principle  is  "Buy  the  Basics,  Custom  Build  only  what  provides  Value"  (Knowles,  1997). 

Many  mature  organizations,  already  dependent  on  information  systems,  are 
struggling  to  implement  this  "Best-in-Breed"  approach  while  still  maintaining  their 
existing  lines  of  business  applications.  To  accomplish  this,  organizations  must 
effectively  forge  a  vision  for  an  enterprise  architectural  foundation  with  a  (capital  "A") 
and  develop  domain-specific  frameworks  that  support  the  integration  of  single  application 
architectures  (with  a  lower-case  "a").  Perhaps,  the  best  approach  is  to  fundamentally 
leverage  the  existing  infrastructure  in  a  manner  that  permits  organizations  and  developers 
to  manage  heterogeneous  components,  business  rules,  and  legacy  data  from  an 
architectural  perspective. 

The  ARIES  development  team  devised  the  Baseline  Infrastructure  Archetype 
(BIA)  Model  to  accomplish  this  objective,  and  to  better  understand  and  analyze  the 
infrastructure.  Although  the  BIA  Model  is  generic,  it  forms  the  centerpiece  of  the 
Architectonic  Paradigm,  and  offers  guidance  for  evaluating  the  features  of  available 
components  and  tools  used  to  solve  problems  relevant  to  the  unique  circumstances  of 
individual  applications.  Essentially  all  of  the  pertinent  technology  fits  into  the  multi- 
layer triangular  model  (Figure  3-2)  that  incorporates  all  three  infrastructure 
subarchitectures:  information,  application,  technical.    These  subarchitectures  provide  a 

triad  of  interaction  for  all  systems  within  the  Architectonic  Paradigm: 

•  Information  Architecture  -  describes  the  content,  behavior,  and  interaction  of 
all  the  business  and  information  requests  from  applications  and  technical 
components.  The  information  architecture  provides  the  database  objects  and 
services  for  application  development  and  provides  a  information  framework 
for  other  requesting  resources. 

•  Application  Architecture  -  defines  the  fundamental  services  and  business 
rules  within  the  applications  domain.  This  architecture  transparently  and 
seamless  supports  the  logic  and  data  processing  of  the  user  interface  service 
requests.      The  components  of  the  information  architecture  are  modeled, 
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designed,  and  implemented  in  terms  of  the  business  rules  and  processes 
developed  in  the  application  architecture. 

Technical  Architecture  -  specifies  the  actual  technologies  (components)  and 
the  software  tools  that  supply  the  requested  services  to  and  from  the 
application  and  information  architectures.  It  is  used  to  implement  the 
applications.  (Aronica  and  Rimel,  1996) 


Figure  3-2.  Baseline  Infrastructure  Archetype  (BIA)  Model. 


The  logical  layers  of  the  BIA  Model  that  function  from  the  epicenter  (interface  layer) 


outward  are: 


Interface  Layer  -  Provides  client-side  services  to  the  resources  and  user.  For 
a  particular  user  the  layer  enables  access  and  interaction  with  application 
resources. 

Communications  Layer  -Functions  as  middleware  to  connect  and  manage  the 
interface  clients  with  various  requested  resources. 
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•  Resources  Layer  -  Consists  of  the  DBMS,  databases,  and  data;  the 
applications,  parts  of  applications  and  components;  technologies  and  tools  that 
implement  the  applications.  (Hurwitz,  1997) 

Resource  interactions  that  do  not  require  client  involvement  occur  at  the  angular 
margins,  and  the  byproducts  of  interaction  are  conceptually  maintained  within  the  circular 
segments  of  the  "sphere  of  influence".  More  simply,  the  sphere  represents  the  scalable 
world  in  which  the  information  system  functions.  Whether  it  is  a  standalone  desktop 
computer  or  a  mainframe  system,  the  baseline  structure  is  physically  different  but 
logically  similar.  The  ecological  environment  in  which  the  spherical  microworlds  operate 

provide  the  common  platform  services: 

•  Base  Operating  System  (e.g.,  Windows  NT). 

•  Networking  Communications  (e.g.,  NetBUI,  TCP/IP,  etc.). 

The  layers  in  this  model  are  not  the  same  as  those  found  in  a  typical  three- 
tier  client/server  model.  There  is  no  single  service  with  a  single  piece  of 
middleware,  no  single  graphical  user  interface,  and  no  single  type  of  data 
all  tightly  connected.  You  should  think  of  each  layer  as  a  category  ~  an 
organizing  principle.  (Hurwitz,  1997). 

This  layer  approach  allows  developers  to  plan  the  function  of  various  pieces  of  the 

architecture  and  determine  what  to  work  on  first.   A  specific  example  of  this  model  will 

be  provided  later  in  the  next  section. 

The  next  logical  question  is  "How  can  the  benefits  of  architecture  be  effectively 

extended  to  component-based  computing?"    The  ARIES  development  team's  response 

was  to   devise  and  institute  a  methodological  heuristic,  Concept-to-Code,  that  embraced 

the  Architectonic  Paradigm  and  provided  a  structural  perspective  and  the  means  to 

formulate  a  cohesively  integrated  application.  This  will  be  the  focus  of  our  discussion  in 

the  next  section. 
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C.        CONCEPT-TO-CODE  HEURISTIC 

1.        Overview 

The  main  disadvantage  of  major  information  system  development,  aside  from 
architectural  and  infrastructural  issues,  is  that  it  takes  too  long  to  implement  full 
production  products  from  untested  concepts.  It  is  very  difficult  to  get  beyond  theoretical 
constructs  to  practical  implementations. 

What  is  needed  is  a  new  kind  of  application  development,  one  supported  by  a  set 
of  design  ideas  that  can  accommodate  pre-existing  applications,  software  infrastructure, 
and  COTS  products,  and  one  employing  a  systematic  approach  independent  of  tool,  style, 
or  technique  that  acts  to  guide  and  direct  the  collaborative  efforts  of  the  users  and 
developers,  and  that  incorporates  Grady  Booch's  five  elements  of  a  successful  project 

application: 

Focus  ruthlessly  on  the  development  of  a  system  that  provides  a  well- 
understood  collection  of  essential  minimal  characteristics. 

•  The    existence    of   a    culture    that    is    centered    on    results,    encourages 
communication,  and  is  not  afraid  to  fail. 

•  The  effective  use  of  object-oriented  analysis  and  design. 

•  The  existence  of  a  strong  architectural  vision  and  principles. 

•  The  application  of  a  well-managed  incremental  and  iterative  development  life 
cycle.  (Booch,  1996,  p.  25) 

Concept-to-Code  (C2C)  is  just  that:  a  way  of  getting  from  a  concept  envisioned 
by  a  organization  to  the  specific  computer  code  needed  to  achieve  it.  C2C's  primary 
cognitive  focus  is  to  prevent  the  production  of  ill-defined  software  early  in  the 
conceptualization  process.  The  heuristic  achieves  this  by  exploring  and  implementing 
practical  solutions  in  a  manner  that  is  independent  of  a  particular  computing  language, 
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DBMS,  and  operating  environment.  Simply  stated,  by  using  rapid  application 
prototyping  techniques  and  the  participatory  involvement  of  the  intended  users,  an 
organization  can  get  exactly  what  it  needs  in  less  time  than  by  conventional  methods. 

"In  business  system  development,  satisfying  the  needs  of  the  users  is  particularly 
challenging  because  even  the  user  cannot  know  what  he  wants  and  needs  until  he  sees  the 
system  in  action"  (Scharer,  1986,  p.  59).  Because  written  specifications  are  not  a  good 
way  to  communicate  with  the  user,  rapid  application  prototyping  was  selected  by  the 
ARIES  development  team  as  a  practical  approach  for  developing  the  U/I  and  the 
application.  Prototyping  in  this  case  becomes  a  method  of  system  construction  as  well  as 
a  technique  for  system  definition  (Scharer,  1986,  p.  60).    Additionally,  it  is  critical  to 

remember  the  following  when  using  rapid  application  development  (RAD): 

•  RAD  only  works  when  you  understand  the  business  problem. 

•  RAD  should  not  be  tool-driven  or  tool-dependent. 

•  RAD  is  only  effective  when  it's  part  of  a  sound  application  development 
process.  (Linthicum,  1997) 

Achieving  this  RAD  effort  requires  close  communication  and  collaboration  between 

intended  users  and  a  small,  highly  skilled  development  team  (e.g.,  three  to  eight  people). 

The  task  is  to  develop  a  technical  artifact  for  a  client  or  user  with  more  or 
less  clear  and  stable  requirements.  To  cope  effectively  with  the 
uncertainty  of  this  task,  an  experimental  approach  is  taken  in  which 
various  models,  prototypes,  and  versions  are  tried  to  reach  a  satisfactory 
solution.  (Dahlbom,  1997,  p.  84) 

By  using  a  methodology  or  process  that  integrates  the  combination  of  controlled 

development  and  rapid  prototyping,  a  developer  can  ensure  minimal  risk  and  maximum 

benefit  in  design. 

In  order  to  effectively  organize  the  RAD  process,  C2C  was  visually  conceived  as 

a  three-layered  closed-loop  pyramid  structure  flowing  progressively  from  top  to  bottom 

and  iteratively  throughout  the  structure  (Figure  3-3).    Each  layer  represents  a  distinct 
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"phase  change"  of  the  collaborative  process,  or  the  completion  of  an  iterative  milestone 
of  the  developing  application.  Each  phase  is  further  sectionalized  into  two  smaller  parts 
called  "stages."  As  indicated,  each  stage  flows  into  each  other  and  acts  to  facilitate  the 
focus  of  the  user  and  developer.  The  resultant  IN/OUT  processes  of  each  stage  are 
byproducts  of  this  interaction. 


Figure  3-3.  Concept-to-Code  (C2C)  Heuristic  Diagram 

The  Conceptualization  Phase  is  focused  on  identifying  and  clarifying  the  concept 
or  problem  to  the  extent  that  the  prospective  users  are  able  to  articulate  and  the 
developers  are  able  to  assimilate.  The  artifacts  of  the  conceptualization  phase  are  utilized 
by  the  Visualization  Phase  to  more  thoroughly  analyze  the  problem  domain,  define  and 
design  stable  component  architectures,  and  address  the  riskier  elements  of  the  project. 
This  phase  will  more  than  likely  require  several  iterative  feedback  loops  to  properly 
create  the  U/I  prototype  and  application  architecture  in  accordance  with  the  user's 
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requirements.  The  Implementation  Phase  uses  the  approved  byproducts  of  the 
Visualization  Phase  employing  appropriate  application  development  principles  and  fourth 
generation  language  coding  skills  of  the  developers. 

Prior  to  the  transition  from  each  phase/stage,  a  formal  review  and  informal 
walkthrough  should  be  conducted  to  ensure  the  resultant  artifacts  are  satisfactory  and 
design  decisions  sound.  Usually  peer-to-peer  walkthroughs  prevent  a  perpetuation  of 
inconsistency  and  incompatibility  between  user  requirements  and  developer  objectives. 
"Formal  reviews  are  intended  for  acquisition  management  users  and  interested  parties  to 
conclude  a  software  development  phase  by  approving  the  products  and  other  results  of 
that  phase"  (USAF-STSC,  1992,  p.  55). 

A  completed  cycle  of  the  C2C  pyramid  and  acceptance  of  the  application  by  the 
user  represents  a  final  incremental  version  that  is  ready  to  be  deployed  in  the  desired 
operating  environment.  'The  process  is  incremental  in  the  sense  that  each  pass  through 
the...[C2C]  cycle  leads  a  project  to  gradually  refine  its  strategic  and  tactical  decisions, 
ultimately  converging  upon  a  solution  that  meets  the  end  user's  real  (and  usually 
unstated)  requirements,  and  yet  is  simple,  reliable,  and  adaptable"  (Booch,  1996,  p.  29). 
Later  in  this  chapter,  I  will  specifically  address  each  phase  and  stage  in  turn,  but  for  now 
it  is  easier  to  view  each  phase  and  stage  as  a  transition  point. 

The  apex  of  the  pyramid  is  the  highest  point  of  general  abstraction  and  becomes 
more  specialized  as  the  developer  gravitates  to  the  foundation.  Only  as  the  user- 
developer  collaborative  ensemble  descends  the  structure  do  specific  commitments  to 
particular  languages,  standards,  and  operating  environments  emerge,  all  the  while 
providing  a  mechanism  for  feedback  that  enables  architectural  refinement  and  iterative 
development  of  the  concept.  The  bisection  of  the  upper  half  (user-driven)  and  lower  half 
(developer-driven)  of  the  pyramid,  indicates  the  primary  focus  of  the  collaborative  effort. 
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The  shaded  boxed  regions  in  the  first  two  phases  illustrate  where  rapid  prototyping  occurs 

dependent  on  user  requirements: 

The  Analysis  Prototype  is  an  aid  for  exploring  the  problem  domain.  It  is 
meant  to  capture  users'  input  and  show  proof-of-concept.  The  analysis 
prototype  is  not  meant  to  be  used  as  a  basis  for  development  and  it  should 
be  discarded  when  it  has  served  its  purpose.  The  final  product  should  use 
the  concepts  exposed  by  the  prototype,  not  its  code. 

The  Domain  Prototype  is  an  aid  for  the  incremental  implementation  of  the 
solution.  It  can  be  used  as  a  tool  for  staged  delivery  of  subsystems  to 
users  and  other  developers.  It  demonstrates  the  feasibility  and  viability  of 
the  implementation  and  will  eventually  evolve  into  a  deliverable  product. 
(Tkach,  1996,  pp.  52-53) 

Therefore  the  amount  of  prototyping  is  directly  proportional  to  the  degree  the  user 
is  able  to  effectively  articulate  what  s/he  wants,  needs,  and  desires  (Figure  3-4).  This 
dependency  upon  the  judgmental  influence  of  the  user  diminishes  from  phase  to  phase 
(Figure  3-5).  Because  of  this  dependency  the  prototyping  for  the  ARIES  SDSS  will  be 
discussed  separately  at  the  end  of  each  phase  narrative  —  each  prototype  situation  is 
uniquely  different  from  the  previous,  and  at  a  minimum,  the  U/I-centric  nature  of  today's 
applications,  increasingly  demands  prototyping  to  achieve  the  best  fit,  form  and 
functionality  in  a  very  short  time. 

This  coordinated  prototyping  capability  is  what  makes  C2C  far  different  from 
typical  application  development.  It  lends  itself  easily  to  rapid  application  development 
yet  is  iterative  at  each  phase.  "Without  a  [process]  for  managing  change,  all  but  the 
smallest,  simplest  projects  are  at  risk  of  wandering  out  of  control  and  adding  time  to  the 
development  schedule"  (Forte,  1997,  p.  121).  The  heuristic  on  the  whole  is  not  a  cookie- 
cutter  technique,  but  takes  a  "systems  view"  of  the  concept  to  be  tested  and  develops  the 
application  in  steps  from  concept  to  system  to  subsystem. 
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With  this  in  mind,  a  more  complete  definition  of  C2C  is  the  following: 


C2C  is  a  formalized  iterative  construct,  a  heuristic,  for  developing 
"proof-of-concept"  applications  in  a  top-down,  component-oriented 
architecture  in  which  users'  objectives,  business  rules,  and 
organizational  data  are  defined  and  related  to  one  another  at  the 
conceptual,  technical,  and  implementation  levels. 
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The  tenet  principles  upon  which  this  heuristic  was  based  are  as  follows: 

Manage  the  complexity  of  small  to  medium  sized  applications  (<  100,000 
LOC)  through  the  use  of  component-based  techniques  while  still  embracing 
legacy  systems. 

•  Focus  development  and  modeling  efforts  on  components  whose  function  is 
determined  heavily  by  the  user  interface  and  interactions  with  relational 
databases. 

•  Where  applicable,  adapt  to  changing  requirements  by  maintaining  a  strict 
adherence  to  open  IT  standards-based  architectures  to  ensure  interoperability, 
portability,  scalability,  and  data  exchange  (Libicki,  1994,  p. 3). 

•  Ensure  application  efforts  are  user-driven,  not  technology-driven,  by 
leveraging  the  user  and  developers  intellectual  capital  through  rapid 
application  prototyping. 

Conduct  integrated  and  continuous  testing  with  the  C2C  process  while 
maintaining  a  "high  level  of  stability  throughout  the  project  by  constantly 
evaluating  the  architecture,  interfaces,  and... by  preventing  the  accumulation  of 
latent  defects"  (Forte,  1997,  p.  122). 

Now  that  the  basics  and  underlying  principles  of  C2C  have  been  explained,  we 
can  delve  into  the  specific  regions  of  the  heuristic  and  how  they  help  to  direct  the 
development  of  the  ARIES  application. 

2.         Conceptualization  Phase 

Concept-based  exploration  begins  with  a  broad  concept  —  a  "term... meant  to 
suggest  a  framework  that  is  found  useful  in  organizing  ideas  and  suggesting  actions"  — 
and  proceeds  into  a  characterization  plan  to  determine  and  understand  the  processes  of  the 
organization,  and  identify  the  top  level  requirements  and  feasibility  of  the  concept  (Scott- 
Morton,  1984).  It  is  essential  to  understand  the  business-centric  aspects  of  the 
organization  prior  to  developing  the  concept.  The  main  goal  in  the  first  step  of  this  phase 
is  to  identify  the  concept  to  be  proven,  and  characterize  it  in  terms  with  which  the  user  is 
familiar  in  preparation  for  later  software  development. 
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The  second  step  in  the  conceptualization  process  is  identifying  the  specific 
capabilities  required  to  execute  the  concept  by  focusing  on  defining  as  much  as  possible 
the  elements  that  best  characterize  the  organization's  stated  concept.  The  goal  is  to 
develop  a  characterization  of  what  the  application  will  accomplish  without  getting  into 
the  details  of  how  the  system  actually  functions.  The  term  characterization  is  used 
because  process  analysis  and  data  gathering  are  not  exhaustive.  It  is  not  necessary  to 
document  every  detail.  Only  enough  detail  is  required  to  allow  informed  decisions  to  be 
made  in  the  creation  of  the  component  architectures  and  U/I  prototype.  Without  the 
insight  that  a  baseline  characterization  provides,  there  is  a  risk  of  devising  a  system 
architecture  that  is  difficult  to  improve.  If  the  customer  already  possesses  much  of  the 
baseline  data,  more  time  can  be  spent  on  characterizing  the  environment.  Iterative 
development  will  subsequently  refine  the  characterization  to  a  specific  system. 

Much  of  this  information  is  gathered  through  a  process  of  interviews  with  all  the 
individuals  (Management,  IT  staff,  and  end  users)  with  a  vested  interest  in  the 
application;  as  well  as  a  thorough  audit  of  the  existing  environment.  It  is  important  that 
the  intended  users  of  the  system  be  fully  involved  and  participative  in  the  conceptual 
design  process.  Conceptual  errors  made  in  the  design  are  laboriously  difficult  to  correct 
once  coding  has  begun.  Developers  prefer  to  carefully  analyze  and  evaluate  the 
conceptual  design  before  proceeding  to  the  Visualization  Phase.  If  the  user  has  difficulty 
articulating  or  characterizing  the  concept,  it  is  the  responsibility  of  the  development  team 
to  utilize  prototyping  as  a  means  to  elicit  the  desired  information.  The  Analysis 
Prototype  can  help  to  "minimize  development  risks  due  to  incomplete  requirements,  and 
to  assess  whether  a  user  interface  can  be  developed  that  will  allow  the  designated  system 
to  operate  effectively"  (Dolan,  1994). 

Some  of  the  basic  concept  characterization  elements  to  consider  are  (not 
inclusive): 
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Top-Level  Requirements. 

Scope. 

Timeline  for  Product  Delivery. 

Performance  Criteria. 

Technology  Base  and  Infrastructure. 

Business  Rules,  Processes  and  Logic. 

The  user  is  not  asked  to  freeze  the  functional  specifications  during  this  because 
specifications  can  be  revised  or  changed  even  after  the  analysis  prototype  refinement  is  in 
progress.  Accordingly,  this  will  require  a  different  mind-set  than  previously  conducted 
by  software  development  teams  in  the  past. 

a.  ARIES  Concept  Stage 

The  concept  USARC  was  interested  in  investigating  was  whether  or  not 
the  manual  process  of  relocating  Army  Reserve  units  could  be  automated  using  existing 
data  sources  and  computing  infrastructure.  Specifically,  could  a  Geographic  Information 
System  (GIS)  be  integrated  with  an  ARU-Decision  Model  to  provide  users  with  the 
ability  to  graphically  select  and  compare  reserve  units  through  a  common  user  interface. 
The  resultant  solution,  a  Spatial  Decision  Support  System  (SDSS),  would  be  a  new 
capability  that  allows  the  decision-maker  to  "pull"  only  the  spatially  pertinent  data  about 
desired  facilities  and  "push"  the  results  into  the  DSS  model. 

b.  ARIES  Characterization  Stage 

The  desired  ARIES  system  could  best  be  characterized  as  a  software 
application  that  spatially  selects,  derives,  calculates,  and  imports  the  user-identified 
decision  parameters  into  the  ARU-DM  using  USARC  data  sources. 
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(1)  Top  Level  Requirements 

SDSS  application  must  be  a  standalone  "proof-of-concept"  prototype  that  will 
execute  on  a  USARC-furnished  laptop  computer  running  the  Microsoft 
Windows  95  operating  system. 

Allow  the  decision-maker  to  manage  the  selection  of  the  legacy  data  sources 
on  the  USARC  LAN. 

Implement  a  single,  consistent  user  interface  that  allows  the  decision-maker  to 
graphically  or  manually  select  the  facilities  to  be  compared. 

Automate  the  calculation  of  ARU-DM  parameters,  using  USARC  business 
rules,  pre-determined  data  processes,  and  a  GIS. 

Enable  the  batch  printing  of  pre-determined  reports  from  a  default  preference 
set. 

Allow  the  decision-maker  to  change  parameter  weightings  and  conduct  "what- 
if '  analysis  on  the  completed  scenario. 

Use  as  many  USARC  infrastructure  components  as  possible  without  adding 
additional  administrative  burden  to  the  IT  staff. 

(2)  ARIES  Scope 

Data  Sources  -  U.S.  Army  Reserve  Databases  (National);  Approximately  one 
gigabyte.  The  functionality  of  the  SDSS  had  to  be  proven  with  USARCs' 
existing  systems,  using  data  the  decision-makers  were  familiar  with. 

Inputs  -  Unit  Identification  Code  (UIC)  of  the  moving  unit  and  up  to  four 
Facility  Identification  (FacID)  unit  alternatives. 

Complexity  -  Support  no  more  than  10  USARC  users  at  a  time  in  the  LAN 
environment. 

Constraints  -  For  calculating  applicable  decision  parameters,  spatially  select 
the  closest  AMSA,  equipment  and  recruiting  sites;  Conduct  all  spatial 
selections  within  a  50  mile  radius  of  the  proposed  site;  Use  USARCs 
command  plan  as  a  master  list  to  validate  UIC's  and  G17  files  as  the  master 
list  to  validate  FacID's;  Indicate  inaccurate  or  missing  data  for  decision 
parameters  with  code  (-999). 

(3)  Timeline 

Develop  standalone  prototype  in  approximately  six  months. 
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(4)  ARIES  Performance  Criteria 

•  Conduct  each  evaluation  scenario  (up  to  four  alternatives)  within  two  hours 
maximum;  Verify  each  user  input  using  master  validation  lists;  Batch 
automate  as  much  as  possible  in  order  to  minimize  user  interaction  and 
training. 

(5)  USARC  Technology  Base  and  Infrastructure 

•  Hardware  (standalone)  -  Dell  Latitude  laptop  computers  with  90  MHz 
Pentium  processors. 

•  Hardware  (network)  -  Numerous  multi-vendor  desktop  computers  with 
Pentium  Processors. 

Operating  Systems  -  USARC  LAN  running  Microsoft  Windows  for 
Workgroups  3.1  with  a  plan  to  upgrade  to  Microsoft  Windows  NT  4.0  in 
Fiscal  Year  1997.  USARC  laptops  utilize  Windows  95. 

•  COTS  -  Maplnfo  Professional  and  MapBasic  4.0  mapping  software  package. 
Microsoft  Office  95  Suite. 

4GL  -  Microsoft  Visual  Basic  4.0  Professional  Edition. 

(6)  ARIES  Business  Rules  and  Processes  —  Appendix  B 


c.  ARIES  A  naly sis  Prototype 

Because  users  cannot  always  articulate  what  their  business  requirements 
are  or  their  preferences  for  the  user  interface,  two  forms  of  analysis  prototyping  were 
used  to  better  conceptualize  the  ARIES  system. 

(1)  Contextual.  Because  direct  interaction  between  USARC 
and  NPS  was  restricted  to  a  maximum  of  two  days  per  month  a  contextual  style  (story- 
boarding)  of  prototyping  was  used  to  elicit  from  the  users  the  desired  functionality  of  the 
common  user  interface  in  terms  of  visual  appearance,  menu  choices,  program  controls 
and  toolbar  capability.  The  idea  was  to  distill  the  "signal  from  the  noise"  by  starting  from 
the  user's  perspective  and  rapidly  discussing,  diagramming,  and  receiving  feedback  about 
various  interface  ideas  and  alternatives.     As  each  iterative  cycle  was  completed,  the 
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interface  became  more  refined,  until  all  sides  agreed  upon  a  interim  design.  The  final 
computer-based  design  was  completed  later  as  a  byproduct  of  the  component  architecture 
prototype  in  the  Visualization  Phase. 

Because  the  application  was  to  execute  in  a  Microsoft  Windows- 
based  environment,  it  was  important  to  the  users  that  the  user  interface  mimic  and 
leverage  Windows-based  functions  as  much  as  possible.  The  main  objective  was  an 
application  that  required  a  minimum  amount  of  training  for  experienced  Windows  users 
and  fulfilled  all  of  the  stated  requirements.  To  achieve  this,  the  collaborative  team  agreed 
that  all  program  views  and  controls  would  be  subordinate  to,  and  represent  only  one  item 
at  a  time  within  the  confines  of  a  master  window  view.  This  was  needed  to  maximize 
user  comprehension  and  minimize  confusion.  The  particular  views  and  controls  are  as 
follows: 

•  Provide  a  Map  View  that  enables  the  user  to  graphically  select  desired  units 
and  monitor  the  progress  of  facility  comparisons  that  are  spatially  selected  and 
calculated. 

•  Provide  a  Selection  Panel  that  enables  the  user  to  manually  input  Moving 
UIC/FacIDs  and  monitor  the  status  of  facility  comparison  calculations. 

•  Implement  button  controls  for  accepting,  starting,  resetting  and  exiting  the 
application. 

Implement  a  menubar  and  toolbar  that  allows  the  user  to  manipulate  the 
COTS  products  in  accordance  with  user  requirements. 

•  Provide  feedback  to  user  in  the  form  of  a  statusbar  and  a  selected  facility 
information  view. 

(2)  RAD-based.  A  second  analysis  prototype  used  a 
combination  of  4GLs,  Delphi  2.0,  Visual  Basic  and  MapBasic,  to  develop  a  rapid 
application  to  audit  and  validate  the  USARC  business  rules  and  data  logic  for  deriving 
the  ARU-DM  parameters.  This  was  accomplished  by  creating  relational  database  links  to 
a  subset  of  the  data  sources  —  Army  Reserve  Units  in  Pennsylvania  —  in  their  existing 
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format,  computing  the  decision  parameters  in  accordance  with  the  business  rules,  and 
outputting  the  results  to  a  common  data  file  format  (e.g.,  Tab  delimited).  Additionally,  a 
custom  component  was  created  and  developed  using  the  MapBasic  spatial  application 
development  language;  a  programming  language  associated  with  interacting  and 
automating  the  Maplnfo  application.  Essentially,  the  MapBasic  component  functioned  as 
a  workflow  script  that  spatially  selected  the  data  necessary  to  calculate  several  decision 
parameters  within  a  50  mile  radius.  This  proved  to  the  collaborative  team  that  the  most 
critical  aspect  of  the  prototyping  process,  using  USARC  LAN  files  without  modification 
and  coordinating  various  heterogeneous  COTS  products,  could  be  controlled  by  a 
common  user  interface.  By  prototyping  ARIES  in  this  way,  we  were  able  to  obtain  clear 
guidance  on  how  to  meet  and  comply  with  USARC 's  unique  military  requirements  and 
business  rules. 

d.  ARIES  Conceptualization  Artifacts 

Before  proceeding  to  the  next  phase,  a  formal  walkthrough  review  was 

conducted  with  all  involved  to  ensure  all  user  requirements  had  been  gathered  and  the 

concept  properly  characterized.  It  was  important  to  avoid  "gold  plating"  the  requirements 

(e.g.,  providing  more  functionality  and  features  then  the  user  needs)  by  realistically 

examining  the  application's  proposed  concept  and  the  organizations  existing  IS/IT 

infrastructure.    The  resultant  ARIES  artifacts  of  this  phase  were  determined  to  be  the 

following  and  are  detailed  in  Appendix  C: 
Conceptual  Overview  Diagram 

ARIES  Process-Flow  Diagram. 

USARC  Business  Rules  Specifications  (Appendix  B). 

User  Interface  Interim  Layout. 

User  Interface  Final  Layout 
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3.        Visualization  Phase 

Once  the  business  issues  are  characterized  and  the  application  requirements  have 
been  defined,  the  next  step  is  to  turn  these  abstract  requirements  into  an  actual  tangible 
architecture.  The  Visualization  Phase  does  this  by  providing  the  means  to  synthesize  the 
user  requirements  into  functional  architectures  and  component  interactions.  Unlike 
current  software  development  practices,  C2C  does  not  attempt  to  clarify  the  difference 
between  requirements  and  design.  The  goal  is  to  facilitate  the  construction  of  the  needed 
application  using  the  most  appropriate  architectures. 

The  C2C  architecture  design  involves  multiple  levels  of  abstraction.  At  one 
extreme  is  the  reference  or  domain-specific  software  architecture  (DSSA);  the  other  is  the 
application  architecture  itself.  The  DSSA  represents  the  most  general  and  abstracted 
form  whereas  the  application  architecture  represents  a  specific  design  solution.  In  this 
phase,  we  categorize  the  two  architectures  as  macro  and  micro.  The  macro-architecture 
illustrates  the  "what"  and  the  micro-architecture  illustrates  the  "how"  of  the  application 
being  designed.  While  the  micro-architecture  represents  a  specific  technical  solution  and 
will  change  as  the  application  is  revised,  the  functional  macro-architecture  will  remain 
the  stable  domain  structure.  Based  on  the  requirements  identified  in  the  previous  phase, 
the  macro-architecture  is  partitioned  into  modules  and  the  function(s)  of  each  module  are 
defined.  The  micro-architecture  then  entails  the  identification  and  selection  of 
component  software  to  fulfill  theses  functions.  More  simply,  the  micro-architecture  key 
concerns  are  functionality  and  performance;  whereas  the  macro  level  concerns  focus  upon 
the  management  of  complexity. 

One  of  the  problems  of  identifying  components  is  that  future  users  of  the 
application  often  view  all  of  their  processes  as  unique,  and  therefore  desire  custom-design 
components  to  handle  this  uniqueness.    This  is  where  a  proper  balance  of  "Buy  -versus- 
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Build"  strategy  is  needed  by  application  developers;  because  some  of  the  components 

may  be  available  in  the  form  of  COTS  products,  and  some  components  may  have  to  be 

custom  developed  for  the  specific  function  they  are  required  to  implement.   A  good  rule 

of  thumb  is  "Build  Business  Value,  Buy  the  Basics"  (Knowles,  1997).     Secondly,  a 

component  should  be  linked  to  an  accepted  standard  and  it  must  earn  its  way  into  the 

application  architecture.     The  use  of  architectural  styles  such  as  these  have  several 

significant  benefits: 

Promotes  design  reuse  within  the  problem  domain. 

Often  leads  to  significant  code  reuse  and  shared  implementations. 

Enables  better  comprehension  of  the  system's  organization  if  conventional 
structures  are  used. 

Use  of  standardized  styles  supports  interoperability. 

Permits  specialized  analysis  by  constraining  the  design  space.  (Monroe,  1997, 
p.  45). 

We  envision  multiple  passes  through  the  Visualization  Phase  with  the  macro- 
architecture  being  solidified  first,  the  U/I  in  subsequent  passes,  and  finally  the  component 
architecture  (micro).  Refinement  occurs  at  each  iteration  with  the  end  user  closely 
engaged  in  the  resultant  architecture. 

a.  ARIES  Macro- A  rch  itecture  Stage 

Because  SDSS  was  an  innovative  concept,  there  was  no  pre-existing 
reference  architecture/DSSA  upon  which  to  base  our  design.  With  this  in  mind,  the 
collaborative  team  utilized  the  artifacts  from  the  previous  phase  and  the  BIA  model  to 

design  a  macro-architecture  (Figure  3-6): 

•  Point  of  Access  (POA)  Module  -  the  prototyped  U/I 

•  Application  Module  -  includes  the  ARIES  Business  rules  and  processes  to 
capture  the  ARU-DM  decision  parameters  and  transfer  them  to  the  DSS. 
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Technical  Module(s)  -  includes  the  capabilities  to  display  maps,  spatially 
select  data  and  provide  decision  support. 

Information  Module  -  includes  the  requisite  data  and  business  rules  to  support 
the  mapping,  decision  parameter  calculation,  and  decision  support  functions  in 
the  form  of  a  Data  Container. 


Figure  3-6.  ARIES  Baseline  Infrastructure  Archetype  (BIA)  Model. 

Because  the  movement  of  data  between  USARC  legacy  data  sources  and 
SDSS  modules  has  the  largest  data  flows,  the  development  team  implemented  a  container 
approach  to  manage  all  data  flows  within  the  context  of  the  macro-architecture  (Figure  3- 
7).  The  Data  Container  represents  an  abstracted  data  repository  that  contains  all  the  meta- 
data, source  data  and  COTS  support  data  necessary  to  the  relocation  decision,  and 
provides  a  means  for  ARIES  to  be  portable  for  mobile  users  and  to  operate  independently 
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from  the  USARC  LAN  for  networked  users.     Source  data  is  migrated  to  a  separate 

database  structure  (data  migration  warehouse  —  DataDepot)  for  the  following  reasons: 

•  Provide  an  accurate,  centralized,  and  high  quality  —  data  repository  for 
calculating  decision  parameters. 

•  Principle  of  minimality  -  only  use  whatever  data  is  required  to  support  reserve 
unit  site  selection. 

j 

•  Accelerate  data  exchange  between  modules  by  using  the  native  DBMS  format 
of  the  USARC  infrastructure. 


MAPPING 
MODULE 


/ARIES  SDSS  'N 
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Figure  3-7.  ARIES  Macro-Architecture  Diagram 


b. 


ARIES  Micro-Architecture  Stage 


After  considering  a  number  of  candidates  and  conducting  an  infrastructure 
review;  the  development  team  identified  the  primary  technologies  that  fit  the 
organizational  objectives,  with  which  to  populate  the  macro-architecture  (Table  III).  The 
information  within  the  Data  Container  component  represents  the  migrated  USARC 
source  data  necessary  to  support  the  relocation  decision  analysis  (DataDepot);  the 
Maplnfo  data  files  necessary  to  support  the  display  of  maps  and  geocoded  information; 
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and  the  ARU-DM  master  templates  to  support  the  importation  of  computed  decision 
parameters. 


Macro-Architecture    Micro-Architecture          Reasons  for             Communication 
Module                J^^VS!^!^^,            Selection                    Protocol 

ARIES  User 
Interface 

Visual  Basic  4.0 
Application 

US  ARC 
Requirement 

Various 

ARIES  Business 
Rules 

Visual  Basic  4.0 
Application 

US  ARC 
Requirement 

Visual  Basic  for 
Applications  (VBA) 

Mapping  Tool 

Maplnio  4.0 

US  ARC 
Requirement 

Microsoft  OLE 

Decision  Support 
System 

Logical  Decisions 
for  Windows. 

Only  DSS  COTS 
product  capable  of 
auto-weighting. 

Windows  API 
Routines  and 
Macro  scripts. 

Data  Container 
(DataDepot) 

Microsoit  Access 
Database 

Performance  gain 
from  using  Native 
DBMS  vice  Third- 
Party  (ODBC) 

Microsoft  JET  SQL 
3.0 

Table  III.  Macro  and  Micro  Architecture  Comparison  Chart. 

Interoperability  between  components  can  be  achieved  by  a  variety  of 
means,  but  it  must  be  delineated  in  the  architectural  framework  and  applied  consistently 
throughout  the  application.  In  the  case  of  ARIES,  many  various  communication 
protocols  had  to  be  used  to  ensure  proper  component  iteration.  For  example,  because  the 
LDW  application  was  originally  designed  for  a  16-bit  Windows  environment,  it  was 
incapable  of  being  controlled  via  established  distributed  computing  standards  (e.g.,  OLE). 
Therefore,  the  development  team  used  intrinsic  Windows  Application  Programming 
Interface  (API)  routines  to  manipulate  the  LDW  window  displays  and  the  Visual  Basic 
SendKeys  Function  to  process  macro-scripts.  In  short,  the  ARIES  U7I  controls  LDW  by 
simulating  a  user's  input. 
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c.  ARIES  Domain  Prototype 


Although  each  of  the  technologies  brought  strengths  that  USARC  wanted 
to  take  advantage  of,  integration  of  the  components  into  a  coherent  process  that  could  be 
controlled  from  a  single  point  soon  became  a  formidable  challenge.  The  developers  were 
faced  with  the  difficulty  of  minimizing  the  coupling  and  data  transfer  between  the  major 
components  in  order  to  maximize  application  performance.  The  first  step  —  was  for  the 
development  team  to  fully  understand  all  of  the  components  —  including  their  design 
intentions,  capabilities,  strengths,  weaknesses  and  external  communication  protocols. 
The  second  step  —  was  to  partition  the  U/I  views  of  the  analysis  prototype  into  smaller 
segments  and  put  the  riskiest  parts  at  the  top  of  the  prototype  list,  rather  than  letting  them 
slip  to  the  end.  This  "Piece-of-the-Pie"  or  subset  approach,  allowed  the  developers  to 
bind  each  U/I  view  in  turn  to  the  applicable  component  (Table  IV). 

By  using  RAD  prototyping,  the  development  team  was  able  to  build  the 
interface  quickly  and  easily  using  a  visual  development  methodology  (VDM),  and  then 
using  component-based  development,  to  link  the  U/I  to  existing  data  sources, 
infrastructure  and  components  to  ensure  connectivity.  Later  in  the  Implementation  Phase 
the  team  would  place  the  appropriate  code  for  business  rules  and  data  manipulation 
behind  the  approved  user  interface.  In  this  manner,  the  abstract  interface  encapsulated,  or 
hid,  the  actual  system  implementation  from  the  end-users.  The  decision-maker  can  only 
view  and  access  the  system  by  way  of  this  single  point  interface. 


User  Interface 
View 

\  ■  -.■•■ .  j 

Micro- 
rchitecture 
?omponentT 

Communication 
Protocols 

User  Inputs 

•  Map  Select  Tab 

•  Map  Query  Tab 

•  Maplnto  4.0 

•  MapBasic  4.0 

•  OLE;  Dbase  111 

•  OLE;  Dbase  III 

•  Graphically 
manipulate 
Maplnfo  tools 
(zoom-in, 
zoom-out, 
select,  grabber) 
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Information  Panel 

Maplnfo  databases 
USARC  databases 
(GeoCoded) 
DataDepot 

ODBC  (FoxPro) 
Dbase  III 

Scroll 

UP/DOWN 
Accept  Facility 
Info 

Facility  Selection 
Panel 

DataDepot 

JET  SQL 

Moving  Unit 

UIC 

FacID  (Qty  1- 

4) 

Control  Panel 

ARIES  U/l 

Visual  Basic  tor 

Applications 

(VBA) 

Start  ARIES 
Reset  ARIES 
Exit  ARIES 

Table  IV.  ARIES  User  Interface/Micro-Architecture  Component  Binding. 


d. 


ARIES  Visualization  Artifacts 


Before  proceeding  to  the  implementation  phase,  another  formal 
walkthrough  review  was  conducted  with  all  involved  to  ensure  that  the  proposed 
procedural  flows,  component  architectures,  and  U/I  prototype  were  practical,  close  to 
what  the  user  expected,  and  adhered  to  specified  standards.  Figure  3-8  illustrates  the  final 
approved  component  framework  solution. 


ARIES  SDSS  APPLICATION 
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ARIES  SDSS 
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ARIES  SDSS 
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ARIES  SDSS 
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WINDOWS  95 /NT  OPERATING  SYSTEM 


Front  -  End  (U/l)    \    ]  Middleware  Protocols         ]  Back-  End  (Databases)  ||  COTS  Products 


Figure  3-8.  ARIES  SDSS  Component  Framework  Solution. 
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4.         Implementation  Phase 

At  this  phase  in  the  C2C  process,  the  component  architectures  and  user  interface 
prototyped  in  the  Visualization  Phase  are  translated  into  source  code  in  3GL  or  4GL 
syntax.  If  an  RDBMS  is  involved,  the  database  schema  will  generated  and  integrated 
with  the  final  application.  The  purpose  of  the  coding  is  to  translate  the  detailed 
architecture  design  into  computer  language  suitable  for  the  designated  operating 
environment. 

Prior  to  this  stage  the  development  team  "must  first  agree  on  the  processes  and 
methodologies  it  intends  to  follow,  and  it  must  decide  which  of  those  processes  are  going 
to  be  followed  religiously  ~  and  which  ones  will  be  honored  in  spirit,  but  perhaps  not  to 
the  letter  of  the  law"  (Yourdon,  1997).  Once  this  has  been  decided,  the  tools  and 
technology  can  be  chosen  —  or  rejected  —  accordingly. 

a.  ARIES  Development  Methods,  Techniques,  and  Strategies  Stage 

Once  the  application  has  been  designed  in  the  form  of  interacting 
components,  it  becomes  very  easy  to  add  new  ones  and  scale  up  the  functionality  of  the 
system  or  adapt  the  system  to  meet  a  design  constraint.  This  was  the  case  in  ARIES  for 
transferring  the  computed  decision  parameters  to  the  decision  support  system.  Because 
the  LDW  DSS  is  a  16-bit  Windows  application,  it  was  incapable  of  reading  Microsoft 
Access  database  files  without  a  custom  modification  by  LDW's  development  team.  The 
solution  was  to  convert  the  Access  data  table  to  a  format  that  LDW  could  import  reliably. 
Component  testing  of  the  LDW  DSS  indicated  that  a  Tab-Delimited  format  was  the  most 
suitable  and  that  by  using  the  Microsoft  Excel  spreadsheet  component  available  in 
USARC's  infrastructure  software  suite,  the  information  could  be  converted  and  imported 
quite  easily  using  OLE  communication  protocols. 
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Another  advantage  of  the  approved  component  framework,  was  that  once 

all  the  required  components  and  interfaces  had  been  specified,  many  of  the  coding 

activities  could  be  performed  in  parallel  as  long  as  the  input  data  necessary  for  the 

component  was  available. 

Once  the  allocations  of  system  requirements  to. ..software  components  has 
been  made,  parallel... software  definition,  design,  and  implementation 
activities  are  initiated.  During  these  parallel  efforts,  the... development 
team  must  continuously  cooperate  and  communicate  to  ensure  that  their 
implementations  are  compatible.  This  continued  interaction  is  critical  to 
the  successful  integration  of  the... software  components.  (USAF-STSC, 
1992,  p.  20). 

b.  ARIES  Coding  Stage 

The  ARIES  U/I  and  application  was  coded  using  the  Visual  Basic  for 
Applications  (VBA)  language  and  standard  structured  programming  techniques.  Only 
one  form  was  created  during  the  Domain  Prototyping  phase  which  contains  all  the  VBA 
objects  and  the  integrated  Maplnfo  object  of  the  ARIES  U/I.  The  rest  of  the  partially- 
compiled  application  is  comprised  of  several  VBA-coded  files  and  one  MapBasic 

program  (Appendix  D): 

•  SUBMAIN.BAS  -  Initializes  the  ARIES  U/I;  Loads  and  connects  COTS 
components  to  U/I;  Displays  the  U/I. 

•  Userlnterface.FRM  -  Contains  all  procedures,  business  rules,  and  logic  for 
controlling  the  ARIES  U/I. 

•  PublicDeclarations.BAS  -  A  library  module  that  initializes  all  public  variables 
and  constants;  Contains  the  variables  that  represent  the  SQL  business  rules  for 
calculating  the  ARU-DM  decision  parameters. 

•  Library. BAS  -  A  library  module  that  contains  all  the  procedures  called  by 
other  procedures  more  than  one  time. 

•  OLE  Library. BAS  -  A  library  module  that  contains  all  the  procedures 
supporting  OLE  communications  between  COTS  components. 

•  OLE  Callback. CLS  -  An  object  class  description  necessary  for  communicating 
with  the  integrated  Maplnfo  component. 
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•  MapBasic.BAS  -  A  library  module  that  initializes  all  public  variables  and 
constants  for  communicating  with  the  integrated  mapping  component. 

•  ARIESArch  -  A  MapBasic  program  that  spatially  selects  the  desired  data 
within  50  miles  of  the  specified  location  and  locates  the  closest  Army  Reserve 
support  facilities. 

Code  evaluation  occurs  during  and  upon  completion  of  coding.  It  ensures 
that  coding  techniques  are  acceptable  and  that  standards  have  been  followed  during  the 
coding  process.  The  evaluation  was  conducted  by  the  development  team  and  NPS 
advisors,  using  peer-review  and  informal  walk-throughs  in  order  to  verify  the  code 
against  the  design,  and  to  ensure  compliance. 

c.  A  RIES  SDSS  Application 

The  gain  in  performance  of  this  spatially  enabled  DSS  over  its  manual 
counterpart  is  formidable.  A  process  that  previously  required  weeks,  can  now  be 
completed  in  minutes.  The  SDSS  DSSA  is  very  flexible  and  offers  numerous  ways  of 
eliciting  preferences  and  displaying  results.  The  structure  is  adaptable  enough  that  it  can 
be  easily  expanded  to  include  additional  decision  parameters,  criteria,  and  improved 
decision  models. 

Given  the  large  number  of  components  that  must  be  centrally  controlled 
by  the  U/I,  and  the  intense  database  activity  involved  in  calculating  decision  parameters, 
a  local  installation  of  the  ARIES  application  at  USARC  Headquarters  was  recommended. 
The  development  team  believed  it  was  critical  to  perform  this  type  of  testing  at  the  actual 
client  site  in  order  to  best  measure  the  application's  performance  in  an  operating 
environment  that  could  not  be  simulated  at  NPS.  Since  this  was  economically  infeasible, 
the  application  was  rigorously  tested  on  the  provided  laptop  computer,  and  the  burden  of 
network  "beta  testing"  of  ARIES  was  shifted  to  the  USARC  staff. 
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D.       SUMMARY 

Our  experience  in  using  C2C  to  help  USARC  develop  the  prototype  and  test  the 
SDSS  concept,  indicates  that  this  approach  can  have  a  major  impact  on  the  way  users  and 
developers  collaborate  on  producing  functional  software.  C2C's  structural  approach  and 
use  of  component  based  development  techniques  to  incrementally  build  and  deliver 
mission-critical  applications,  formalizes  a  process  that  was,  until  recently,  overly 
complex  and  unwieldy. 

The  C2C  process  puts  an  early  emphasis  on  addressing  a  concept's  high-risk  areas 
by  rapidly  prototyping  a  proof-of-concept  version  of  the  intended  system  that  defines  its 
specific  component  architecture.  It  does  not  assume  a  fixed  set  of  user  requirements  at 
the  concept  inception,  but  allows  for  iterative  refinement  of  the  requirements  as  the 
project  evolves.  Changes  are  expected  and  accommodated.  The  main  focus  still  remains 
the  final  software  product  and  its  quality,  as  measured  by  the  degree  to  which  it  satisfies 
the  user's  expectations. 

As  component-based  development  becomes  more  widespread  and  focuses  on 
architecture,  the  complexity  of  the  distributed  operating  environment  should  wane.  Until 
that  occurs,  component-based  systems  built  by  non-programmers  will  probably  continue 
to  be  interconnected  in  an  unstable  "hodge-podge"  fashion.  The  best  way  to  improve  the 
integration  of  these  systems  is  to  adopt  an  enterprise-wide,  integrated  architectural 
strategy  that  incorporates  standards  that  act  to  limit  the  inherent  complexity  faced  by 
users  and  developers.  In  this  sense  C2C  acts  as  a  technological  "gap  filler"  between 
baseline  infrastructure  and  target  applications. 

As  with  any  new  software  development  process  and  modeling  methodology, 
nothing  works  exactly  right  the  first  time  out.  The  USARC-NPS  innovative  collaboration 
was  no  different.    What  appears  to  occur  smoothly  throughout  the  development  of  the 
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ARIES  SDSS  application,  in  retrospect  was  actually  disjointed  and  haphazard  as  USARC 
and  NPS  personnel  underwent  a  'learning  experience"  about  merging  component-based 
technologies  with  architectural  thoughts  and  ideas.  These  "lessons-learned"  are  what  the 
next  chapter  is  devoted  to  exploring  in  detail. 
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IV.      LESSONS  LEARNED. 


"There  is  a  point  at  which  methods  devour  themselves.''' 

Frantz  Fanon,  Black  Skins,  White  Masks,  1952. 

"A  tool  knows  exactly  how  it  is  meant  to  be  handled,  while  the  user  of  the  tool  can 
only  have  an  approximate  idea." 

Milan  Kundera,  1978. 

"Reality  is  the  murder  of  a  beautiful  theory  by  a  gang  of  ugly  facts.'''' 
Robert  L.  Glass. 

"The  only  thing  new  in  the  world  is  the  history  you  have  not  learned." 
President  Harry  S.  Truman 

A.       OVERVIEW. 


This  Chapter  examines  some  of  the  most  critical  lessons  that  the  development 
team  learned  while  constructing  the  ARIES  application.  It  is  by  no  means  inclusive  of  all 
the  lessons  learned  during  the  project,  but  rather  a  representative  sample  of  the  lessons 
related  to  component-based  development.  Each  chapter  section  is  presented  in 
categorical  form,  beginning  with  users  and  analysis;  application  development;  rapid 
prototyping,  and  component-based  development.  Each  of  the  pertinent  lessons  related  to 
a  particular  section  is  stated  first  and  then  discussed  at  length. 

B.   CONCEPTUAL  ANALYSIS  AND  THE  USERS. 

•  Because  of  software  development's  inherent  malleability,  it  is  difficult  to 
anticipate  which  requirements  will  be  implemented  easily  and  which  will 
decimate  the  project. 

Deciding  what  to  build  and  what  not  to  build  is  the  age  old  dilemma  that  faces  all 
developers.  Experience  has  proven  that  software  requirements  are  the  biggest 
impediment  to  properly  engineering  complex  systems.  Conventional  as  well  as  state-of- 
the-art  software  development  practices  have  failed  to  make  appreciable  headway  against 
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persistent  and  pervasive  problems  with  requirements  management  (DON-NRL,  1996,  p. 
1).  Beyond  this  need  for  discipline,  requirements  are  intrinsically  hard  to  define  well.  In 
an  attempt  to  better  manage  requirements  analysis,  the  development  team  countered  with 
the  Conceptualization  Phase  of  the  C2C  Heuristic.  By  devoting  crucial  time  and  energy 
at  the  outset,  we  hoped  to  capture,  structure,  and  contain  the  sheer  essence  of  the  project. 
This  could  not  occur  without  an  equal  give-and-take  on  the  part  of  the  intended  users. 
Through  the  formation  of  a  collaborative  effort,  whereby  the  group  built  a  little  and 
prototyped  a  lot,  a  productive  synergy  yielded  stable  requirements  from  which  to  design 
architectures  and  model  the  problem  domain.  The  users  specify  the  "what"  of  the 
problem  and  the  developers  focus  on  the  "how"  of  the  solution.  This  iteratively  and 
multiplicatively  leverages  the  users'  business  knowledge  in  concert  with  the  technical 
acumen  of  the  developers.  Using  prototyping  as  the  practical  solution  The  cognitive 
layers  and  the  feedback  cycle  of  the  C2C  structure  acts  to  progressively  guide  the 
collaborative  ensemble  en  masse  from  high  levels  of  abstraction  to  a  specialized  solution 
space. 

In  the  case  of  ARIES,  the  characterization  stage  and  U/I  prototypes  were  the  most 
instrumental  in  building  the  application  correctly  the  first  time  instead  of  enduring 
endless  cycles  of  change  management.  The  developers  were  able  to  understand  exactly 
what  the  SDSS  needed  to  perform,  were  able  to  communicate  side  issues  and 
discrepancies  in  the  language  of  the  users,  and  used  an  architectural  focus  to  provide  a 
means  for  controlling  the  production  of  the  final  application  (DON-NRL,  1996,  p.  6). 

•      The  developer  cannot  understand  the  business  rules  and  processes  well 
enough. 

Most  application  generation  languages  do  a  good  job  effectively  designing  the 
user  interface  and  providing  the  underlying  support  code  to  connect  the  U/I  to  the 
pertinent  database(s).    But  it  is  the  business  rules  and  data  processing  logic  that  are  the 
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heart  and  soul  of  a  successful  application  and  are  the  most  difficult  to  automate.  It  was 
this  understanding  of  the  rules  to  which  the  NPS  development  team  devoted  a  majority  of 
its  analysis  efforts.  By  focusing  early  in  the  Conceptualization  Phase  on  thoroughly 
comprehending  and  characterizing  the  exact  rules  and  processes  used  by  the  USARC 
decision-makers,  the  team  avoided  extensive  and  unnecessary  rework  later  in  the 
implementation  stages.  Using  process  roadmaps  and  documented  business  rules,  ARIES 
development  became  a  straightforward  exercise  in  prototyping  the  U/I,  identifying  the 
required  SQL  database  operations,  linking  the  Rules  to  the  U/I,  and  linking  the  rules  to 
the  SQL. 

•     Keep  the  user  engaged  in  the  collaborative  process. 

ARIES 's  intended  users  failed  to  adequately  specify  top  level  system 
requirements  as  quantitatively  as  possible,  and  developers  failed  to  better  elicit  them. 
Too  many  trade-offs  and  design  decisions  were  left  to  the  developer.  Conflict  at 
structured  walk-throughs  occurred  between  the  developer's  view  of  the  design  and  the 
users'  unarticulated  view.  Large  amounts  of  development  time  were  lost  in  several  C2C 
stages  because  of  these  discrepancies. 

Collaboratively  prototyping  in  one  room  or  meeting  is  difficult  enough  under  the 
best  conditions,  but  in  the  case  of  ARIES  the  development  team  resided  at  NPS  in 
Monterey,  California,  while  a  majority  of  the  time  the  users  were  at  USARC  headquarters 
in  Atlanta,  Georgia.  Attempts  to  regulate  the  collaboration  using  email  proved 
ineffective.  A  second  problem  in  this  arena  involved  the  USARC  LAN  network  software 
upgrade  from  Windows  3.1  to  Windows  NT  which  was  not  scheduled  for  completion 
until  after  product  delivery.  As  a  result,  incremental  prototype  builds  could  only  be 
alpha-tested  by  USARC  decision-makers  during  the  monthly  progress  meetings.  Instead 
of  stabilizing  the  design,  the  opposite  outcome  occurred  as  the  prototype  demonstrations 
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elicited  user  suggestions  not  anticipated  by  the  developers.  For  example,  the  user  wanted 
to  be  able  to  select  the  facilities  for  site  relocation  graphically  using  the  mapping 
component.  The  development  team  mistakenly  assumed  that  the  map  view  should  label 
the  selectable  nodes  with  its  corresponding  facility  identifier  (FacID).  The  Domain 
Prototype  was  built  around  this  misconception,  only  to  discover  at  the  prototype 
demonstration  that  users  had  trouble  "drilling  down"  through  the  map  layers  of  the  map 
view  because  they  were  in  the  habit  of  selecting  facilities  by  the  closest  cities  and  towns 
rather  than  by  FacID. 

•  Identify  who  is  responsible  for  software  maintenance  prior  to  development. 

One  the  biggest  mistakes  that  can  occur  with  regard  to  software  development  is  to 
delay  the  selection  of  the  software  maintenance  organization  until  after  the  development 
of  the  software  application  and  data  structure  has  begun.  The  developer  may  have 
deployed  a  superior  application,  but  if  is  incompatible  with  existing  infrastructures  or 
unsupportable  by  the  recipient  organization's  IS  support  staff,  then  the  program  probably 
will  not  be  used  and  likely  "wither  on  the  vine"  from  lack  of  support.  The  solution  is  to 
select  the  provider  of  the  technical  support  prior  to  the  commencement  of  application 

development.  The  IS  support  can  be  provided  in  one  of  two  forms: 

•  Externally  by  the  software  development  team/organization,  or 

In-house  or  organically  (i.e.,  by  an  organization  of  the  Army). 

If  an  organic  organization  is  selected,  then  the  software  tools  and  applications 
used  for  development  must  be  provided  to,  and  agreed  upon,  by  the  maintenance 
organization.  In  the  case  of  ARIES,  the  initial  Analysis  Prototypes  were  developed  using 
Borland's  Delphi  2.0  fourth  generation  language.  Although  the  lead  developer  had 
experience  with  Delphi  client-server  environments,  the  USARC  IS  Staff  were 
inexperienced  and  unfamiliar  with  the  Delphi  programming  environment.     Therefore 
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Delphi  was  summarily  vetoed  by  the  USARC  IS  Staff  and  two  additional  requirements 

were  imposed  in  the  second  round  of  the  Conceptualization  Phase: 

•  Both  the  ARIES  Application  and  Administer  must  be  developed  in  Microsoft 
Visual  Basic  4.0. 

All  Visual  Basic  and  MapBasic  source  code  must  be  provided  separately  to 
USARC  in  an  uncompiled  form. 

This  resulted  in  a  six  week  loss  of  development  time  while  the  development  team 
attended  several  professional  Visual  Basic  workshops  and  redesigned  the  Analysis 
Prototype  to  comply  with  these  new  requirements. 

C.       ARIES  APPLICATION  DEVELOPMENT  LESSONS. 

•  Small  development  teams  are  best. 

It  is  a  fundamentally  simple  principle  that  if  you  want  to  limit  the  number  of 
defects  in  a  project,  then  limit  the  number  of  developers  involved  in  producing  the 
project.  Good  people  produce  good  software  (Yourdon,  1996,  p.  28).  The  results  from 
using  a  small  team  for  the  ARIES  SDSS  were  better  management,  less  coordination,  and 
improved  communication  between  both  team  members  and  users.  By  using  a  design 
heuristic,  automated  tools,  and  architectural  structure,  the  development  team  was  able  to 
remain  small  in  size  (3-8  members),  and  reducing  the  amount  of  code  to  be  written  and 
tested.  Small  teams  using  modern  tools,  techniques,  and  user  experience  can  achieve 
high  levels  of  productivity. 

•  Spatial  selection,   when  properly  implemented,  can  substantially  reduce 
decision  model  parameter  calculation  response  times. 

During  the  Visualization  Phase,  the  domain  prototype  of  the  ARIES  SDSS 
performed  much  more  slowly  than  the  collaborative  team  had  anticipated.  Some  of  the 
problems  occurred  because  of  overhead  from  complex  SQL  queries  between  the  U/I  and 
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the  RDBMS.    For  example,  calculating  the  available  MOS's  from  the  closing  Army 
Reserve  units  requires  the  following  logic: 


Determine  all  the  individuals  assigned  to  Closing  Units  who  live  within 
50  miles  of  the  Proposed  Site  having  MOS's  matching  a  prospective 
Moving  Unit's  requirement  for  a  particular  MOS. 


The  example  took  nearly  an  hour  to  execute  on  a  Pentium  120  MHz  computer, 
regardless  of  the  population  density  of  the  location.  Even  with  performance  tuning 
execution  time  was  still  about  40  minutes  on  average  to  perform  the  query.  The  solution 
was  to  utilize  the  specialized  geographic  processing  capability  of  the  Maplnfo  component 
to  spatially  select  only  the  database  records  within  the  50  mile  geographic  boundary  of 
the  proposed  site.  This  required  obtaining  a  waiver  from  USARC  to  allow  the 
development  team  to  geocode  the  Army  Reserve  Unit  personnel  database  (G18CWE) 
using  the  MARS  Engine,  to  migrate  the  database,  and  to  spatially  enhance  it  and  two 
others  for  geoquerying  by  ARIES.  The  performance  gain  from  this  technique  was  on  the 
order  of  five  to  seven  times  faster  (Figure  5-1). 

•     Avoid  design  error  propagation  by  adhering  to  a  philosophy  of  "Daily  Build 
and  Smoke  Test. " 

When  discussing  software  development  in  terms  of  incremental  prototypes  or 
iterative  "builds,"  one  thinks  of  monthly  or  weekly  milestones.  This  correlates  to  the 
business  world  and  our  daily  lives  as  a  "normal"  production  pattern.  The  trouble  lies  in 
the  rapid  changes  that  prototyping  perpetuates;  factor  in  concurrent  development  by  team 
members,  and  you  have  a  recipe  for  disaster  when  project  assembly  occurs  in  one  month 
(e.g.,  "let's  put  it  together  and  see  what  works"). 
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Figure  4-1.  Spatial  Solution  Diagram. 

Component-based  development  allows  the  developer  to  follow  a  different 
approach  —  the  Daily  Build  and  Smoke  Test.  This  process  can  be  used  effectively  for 
projects  of  any  size  or  complexity  and  consists  of  developers,  on  a  daily  basis 
assembling,  compiling,  linking,  building,  etc.,  all  the  project  components  and  code 
modules  into  a  deliverable  application  and  then  testing  to  verify  its  basic  operations.  The 
team  is  not  allowed  to  continue  coding  until  the  current  "build"  passes  satisfactorily,  and 
component  failures  can  be  attributed  as  the  responsibility  of  the  component  creator.  In 
this  manner  the  developers  start  every  day  with  a  product  that  functions  correctly,  and 
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ensures  that  any  defects  that  are  present  were  induced  within  the  last  24  hours.  It  is  far 
easier  to  retrace  an  individual's  one  day  effort,  than  a  team's  monthly  effort.  This 
prevents  developers  from  unwittingly  developing  incompatible  components  and 
corrupting  the  overall  design. 

Why  is  this  so  important?  The  process  pays  for  itself  by  reducing  the  time- 
consuming  development  risks  of  low  quality,  integration  failure,  and  poor  progress 
visibility  (McConnell,  1996,  p.  405).  Not  only  does  the  developer  always  have  a 
deployable  application,  but  the  users,  project  managers,  and  other  team  members  always 
have  a  daily  status  of  what  is  complete  and  what  needs  to  be  added.  Any  problems  which 
arise  tend  to  be  relatively  small  in  nature  and  can  be  dealt  with  accordingly,  rather  than 
shifting  into  "crisis  mode"  to  rework  code  following  a  monthly  or  quarterly  project  build. 
"The  daily  build  is  the  heartbeat  of  the  project.  It's  how  you  know  you're  alive" 
(McCarthy,  1995). 

•     A  strong,  stable,  and  well-defined  architecture  prevents  degeneration  of 
design. 

It  can  be  extremely  difficult  to  maintain  an  application  architecture  as  the 
development  process  unfolds.  Over  time,  performance  and  delivery  pressures  can 
combine  to  blur  the  architectural  design,  resulting  in  unwanted  degeneration  of  the 
structure  at  all  levels.  A  "good  enough"  architecture  may  be  the  result  of  attempting  to 
accommodate  a  given  COTS  component  structure,  but  a  standards-based  architecture  is 
critical  to  the  development  process.  Quality  architecture  is  more  likely  to  influence  a 
successful  project  than  a  given  set  of  components.  Component  technology  and  good 
architecture  need  to  be  intrinsically  related,  otherwise  architectural  mismatch  can  occur 
(Garlan  et.  al.,  1995,  p.  18).  Rapid  prototyping  can  accelerate  this  mismatch  unless  a 
strict  development  discipline  is  enforced  by  the  developers  to  rework  and  revisit  all 
affected  components  after  each  prototyping  cycle  ends  and  during  component  integration. 
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A  well-thought  out  architectural  solution  can  be  effectively  and  efficiently  implemented 
in  almost  any  language,  environment,  and  infrastructure. 

D.       RAPID  PROTOTYPING  LESSONS. 

•     Decide  up  front  whether  the  prototype  is  to  be  a  "throwaway"  or  a  full 
production  system. 

A  throwaway  prototype  or  scaled-down  model  is  used  for  feasibility  exploration 
and  proof-of-concept  studies  in  which  user  requirements  are  incomplete  and  the  system 
approach  is  uncertain.  However,  if  a  prototype  is  being  constructed  using  known 
requirements,  and  only  minor  uncertainties  remain  regarding  the  system  approach,  then 
an  evolutionary  prototype  can  be  built,  in  which  some  or  all  of  the  prototype  is  retained 
(Gordon  and  Bieman,  1995,  pp.  85-86).  Usually  the  throwaway  is  built  first,  with  the 
developer  proceeding  quite  rapidly  as  the  user  requirements  are  defined  and  the  system 
architecture  is  confirmed.  The  downside  is  that,  in  its  limited,  scaled-down  form,  the 
prototype  is  usually  incapable  of  being  deployed  as  a  full  production  system  because  so 
many  shortcuts  have  been  taken  to  illustrate  whether  something  could  be  done.  When  the 
design  specifications  are  complete,  then  it  can  be  rewritten  to  fulfill  a  more  flexible, 
scaleable,  and  extensible  form. 

Originally  ARIES  was  budgeted  for  a  two-phased  development:  a  stand-alone 
throwaway  prototype,  and  a  full  production  network-centric  version.  The  network  model 
was  to  be  a  three-tiered,  fully  object-oriented  client-server  application  that  would  be 
Windows  NT  enhanced  to  maximize  decision  parameter  calculation  using  remote  OLE 
automation.  Difficulties  with  this  scheduled  arrangement  occurred  when  project  funding 
was  reprogrammed  halfway  through  the  C2C  development  cycle.  This  required  a 
collaborative  reorganization  of  the  ARIES  SDSS  to  enable  the  application  to  execute  in 
the  network  environment  without  being  optimized  for  it. 


71 


Conventional  wisdom  counsels  that  whether  "[you]  plan  to  throw  one  away;  you 
will  anyway,"  (Brooks,  1987)  but  often,  in  the  interests  of  time  and  expense,  a  prototype 
will  be  retained  in  some  form  from  the  start.  As  developers  we  are  not  advocating  one 
particular  method  over  another,  only  that  in  the  best  interests  of  the  collaborative  design 
team,  it  is  imperative  to  decide  from  the  outset  which  one  it  will  be. 

•  The  collaborative  nature  of  prototyping  requires  more  of  the  user's  time 
than  he  plans  for. 

The  challenge  of  managing  a  prototyping  effort  can  be  much  more  complicated 
than  managing  conventional  software  development.  The  difference  stems  from  the  heavy 
emphasis  placed  on  providing  the  users  what  they  want  and  need.  This  leads  to  modeling 
processes  in  new  ways,  which  in  turn  requires  near  constant  feedback  to  prevent  wasted 
effort  and  trivial  pursuits  of  unintended  features.  Sometimes  this  constitutes  more 
feedback  than  the  user  is  capable  of  providing. 

Because  USARC  could  only  review  U/I  prototype  once  a  month  during  their  trips 
to  NPS,  user  feedback  tended  to  come  very  late  in  the  prototyping  cycle.  This  latency 
meant  constructive  feedback  came  at  a  time  when  incorporating  the  changes  incurred 
significantly  higher  costs.  Changes  in  the  user  interface  prototype  at  the  end  of  each 
Visualization  Phase  walk-through  twice  resulted  in  an  additional  four  weeks  of  design, 
testing,  and  unit  integration. 

•  Quick  visual  results  encourages  the  user(s)  to  suddenly  see  possibilities 
where  before  they  had  only  seen  barriers. 

A  striking  phenomenon  about  visually-oriented  prototypes  is  the  uncanny  ability 
to  elicit  Archimede's  "Eureka!"  reactions  from  the  pool  of  intended  users.  The  potential 
end-user  goes  from  a  position  of  "I'll  know  it  when  I  see  it,"  to  "if  you  can  do  that,  then 
surely  you  should  be  able  to  do  this?"  It  provides  a  sense  of  empowerment  to  the  user 
and  allows  him  to  shape  and  envision  the  final  system.,  In  practice  however,  this  can  only 
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occur  after  he  has  gained  some  experience  from  the  system  proposed  by  the  developers 
(Gordon  and  Bieman,  1995,  p.  86).  As  with  every  new  unprecedented  capability,  there 
comes  a  dark  side.  The  user's  hunger  for  more  and  more  functionality  can  become 
insatiable  without  some  outside  restraint  imposed  by  the  development  team.  This  may 
result  in  uncontrolled  "requirements  creep. "  Because  the  prototype  can  so  effectively  and 
easily  mirror  the  final  system,  the  intended  user(s)  may  have  little  sense  of  the  relative 
costs  and  the  diminishing  marginal  returns  of  adding  functionality  beyond  the  scope  of 
the  initial  concept.  In  short,  "perfection"  becomes  the  enemy  of  "good-enough." 

In  this  sense  it  is  the  duty  of  the  developers  to  guide  and  assist  the  users  in 
prototyping  the  final  system  around  a  reasonable  bandwidth  of  the  users'  stated  goals. 
Their  experience  and  objectivity  are  critical  in  knowing  when  to  stop  prototyping  and 
start  coding.  Otherwise  excessive  gold  plating  may  result  in  a  great  system  that  never 
gets  built. 

•      Using  COTS  products  does  not  eliminate  software  maintenance. 

On  the  contrary,  because  the  origin  of  installed  components  is  external  to  the 
developers,  software  maintenance  plays  an  even  larger  role  than  it  does  in  conventional 
software  product  development.  If  a  component  is  modified  and  the  vendor  releases  a 
bigger  and  better  version,  as  they  always  do,  who  then  is  responsible' for  the  care  and 
feeding  of  the  application?  The  vendor?  The  development  team?  The  recipient 
organization?  Secondly,  if  the  developers  use  the  product  "as-is"  and  the  vendor  updates 
other  components  in  the  application  architecture,  who  bears  the  brunt  of  the  burden  to 
ensure  component  compatibility?  Each  change  in  the  implemented  design  requires  a  new 
version  of  the  system  to  maintain  the  technical  integrity  of  the  application.  Otherwise  the 
incompatibilities  become  cumulative  and  propagate  instability  throughout  the  component 
architecture. 
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This  was  the  case  with  LDW,  the  ARIES  DSS  component.  As  the  other 
components  received  major  product  upgrades,  including  the  operating  system,  the  LDW 
DSS  remained  unchanged.  Because  of  the  unwillingness  of  the  LDW  vendor  to  migrate 
LDW  to  a  32-bit  application,  the  burden  of  maintaining  the  ARIES  product  over  the  next 
18  months  will  become  even  more  difficult  without  radical  work-arounds  to  make  a  16- 
bit  program  backwards  compatible  within  a  32-bit  component  framework.  As  a  result, 
the  viability  of  ARIES  will  become  less  and  less  certain  as  USARC  upgrades  its 
infrastructure. 

In  summary,  you  cannot  simply  build  a  component-based  application  and  then 
forget  about  it.  The  more  easily  such  an  application  is  built,  the  more  critical  the 
maintenance  effort  needed  over  the  application's  lifecycle. 

E.       COMPONENT-BASED  COMPUTING  LESSONS. 

•     Building  custom  components  is  really,  really,  hard. 

Do  not  be  fooled  by  the  component  evangelists.  It  is  very  difficult  and  time 
consuming  to  build  even  simple  components  that  work  and  communicate  well  with  other 
components  and  applications  let  alone  complex  ones.  In  today's  dynamically  complex 
event-based  development  environments,  a  developer  must  be  able  to  anticipate  every 
possible  use  and  interaction  a  component  could  be  expected  to  fulfill  and  undergo 
respectively.  Many  component  building  and  application  software  packages  have  been 
created  to  address  these  issues,  but  testing  components  in  infinitely  diverse  combinations 
is  a  Herculean  undertaking.  Further,  using  contemporary  methodologies  does  not  insure 
success;  many  dismally  poor  components  have  been  produced  using  modern  tools  and 
techniques.  High  quality  and  reliability  comes  at  a  premium  cost.  It  is  far  easier  to  buy 
and  modify  a  well-designed  COTS  product  than  to  develop  and  validate  a  custom  built 
one.  The  challenge  in  doing  this  well  is  to  know  and  understand  thoroughly  the  available 
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off  the  shelf  commercial  products,  because  many  of  the  problems  encountered  during 
implementation  simply  cannot  be  determined  before  integration  begins. 

•  The  learning  curve  for  mastering  component-based  application  development 
is  steep. 

It  is  important  that,  prior  to  using  a  particular  component  or  fourth  generation 
development  language  for  developing  a  component-oriented  application,  the  developers 
are  comfortable  and  familiar  with  the  product.  One  person  cannot  be  expected  to 
instantly  master  several  different  components  well  enough  to  be  an  effective  and  efficient 
developer  while  at  the  same  time  attempting  to  prototype  the  system.  "Just  in  time 
learning"  is  insufficient  to  guarantee  a  stable  design  and  is  often  a  blueprint  for  disaster. 

•  Component    communication    protocols    are    the    weakest    link    in    the 
development  chain. 

Some  components  are  capable  of  using  open  or  de  facto  standards  (e.g.,  OLE), 
some  must  utilize  proprietary  communication  protocols  (e.g.,  DDE),  and  others  cannot 
operate  with  various  components  at  all.  In  order  to  effectively  implement  the  ARIES 
component  framework,  the  developers  were  forced  to  use  a  combination  of  all  three 
methods  to  achieve  the  desired  functionality.  This  approach  was  not  without  its 
drawbacks,  for  the  less  'open'  the  protocol,  the  less  functional  the  implementation.  For 
example,  because  LDW  is  incapable  of  importing  most  current  file  formats,  Microsoft 
Excel  had  to  be  used  to  save  the  resultant  scenario's  decision  parameter  matrix  in  a  tab- 
delimited  format  that  LDW  could  process;  Visual  Basic  could  not  do  that  easily.  This 
introduced  another  component  in  the  architecture  whose  only  function  was  to  serve  as  a 
file  transfer  agent,  a  function  which  is  not  the  component's  strongest  suit. 

The  Maplnfo  component,  on  the  other  hand,  fully  embraces  the  de  facto  OLE 
standard  and  effectively  documents  the  component's  interconnections.  As  a  result, 
approximately  ninety  percent  of  the  functionality  within  the  Maplnfo  application  could  be 
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done  within  an  integrated  map  window.  To  similarly  manipulate  the  LDW  application, 
the  ARIES  U/I  hypnotized  it  into  executing  user-simulated  keyboard  commands  using 
Microsoft  Windows  API  routines  and  macro  scripts.  Essentially  the  ARIES  U/I  tricked 
the  program  into  thinking  a  user  was  present  when  he  was  not.  This  technique  is  strictly 
limited  in  that  only  about  20%  of  LDW's  capability  could  be  controlled  in  this  way  by 
ARIES. 

•  Use  of  Commercial-Off-The-Shelf  (COTS)  components  can  result  in  "dead 
code"  solutions. 

In  some  cases  the  use  of  an  appropriate  or  inappropriate  component  can  result  in 
some  or  most  of  the  component's  functionality  not  being  used  (dead  code).  Essentially  a 
large  component  with  many  capabilities  may  only  be  needed  to  provide  a  single  function 
or  a  small  subset  of  the  original  functionality.  An  example  of  this  is  the  use  of  Microsoft 
Excel,  a  large  and  complex  application  for  spreadsheet  manipulations,  which  is  used 
exclusively  in  ARIES  to  load  the  decision  parameter  matrix  and  save  it  in  a  different 
format.  Similarly,  Maplnfo  is  used  only  for  geoquerying  and  facility  selection,  in  spite  of 
its  extensive  thematic  mapping  capability.  The  resources  that  the  mapping  component 
consumes  (e.g.,  4  MB  of  random-access  memory)  are  lost  to  other  applications  when  only 
15%  of  the  component  is  used. 

•  COTS  components  are  not  all  "open  "  standard  compliant. 

This  was  probably  the  hardest  lesson  the  ARIES  development  team  had  to 
contend  with,  and  is  a  major  issue  for  anyone  interested  in  pursuing  component-based 
development  as  a  solution  provider.  In  the  past  components  or  small,  specialized  16-bit 
applications  were  designed  and  built  using  proprietary  standards  combined  with 
programmers'  idiosyncratic  methods  to  achieve  a  certain  level  of  performance.  As 
operating   systems   have   matured   and   become  more   sophisticated,   components  and 
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programs  are  able  to  take  advantage  of  object  libraries  and  infrastructure  to  achieve 
functionality.  Yet  openness  is  still  measured  by  proprietary  designs  and  consumer 
acceptance.  Providing  a  uniformly  understandable  means  for  accomplishing  tasks  is  key 
to  limiting  communication  chaos  and  reducing  risk  within  the  application's  architecture. 
Without  standardization  and  architecture,  the  process  of  integrating  unique  application 
components  becomes  extraordinarily  complex.  Since  no  single  vendor  has 
accommodated  the  entire  range  of  infrastructure  management  needs,  de  facto  standards 
have  emerged. 

This  is  where  the  real  trouble  arises,  for  third-party  components  and  updates  from 
vendors  are  not  exactly  'plug  and  play',  and  frequently  have  a  tendency  to  be  falsely 
documented.  The  integration  of  various  component  data  formats  and  communication 
protocols  can  be  very  complex,  and  subtle  "gotchas"  within  a  component  may  render  its 
role  in  the  component  framework  null  and  void.  Initially  the  development  team  tried  to 
grab  too  much  "off  the  shelf  and  hastily  put  it  all  together  during  the  prototyping  stages. 
This  yielded  mixed  results  —  mostly  bad.  The  team  was  so  enamored  by  the  prospect  of 
a  buy-and-integrate  strategy  that  it  failed  to  realize  that  some  COTS  products  can  only 
interact  in  accordance  with  its  own  set  of  standards,  architectures,  and  design.  Not  all 
COTS  products  are  universally  pliable.  They  may  require  in  depth  analysis  of  their 
intended  operating  environments  and  structure. 

As  an  example,  LDW  is  capable  of  screen  capturing  its  various  graphic  analysis 
displays  to  the  clipboard  or  a  graphic  file.  The  undocumented  difficulty  is  that  the 
"clipboard"  was  implemented  by  the  programmer  in  C++  without  using  Windows  native 
API  routines.  Additionally,  the  graphic  file  is  the  16-bit  Windows  meta-file  standard 
(WMF)  that  is  supported  by  only  a  handful  of  programs  (e.g.,  Microsoft  PowerPoint). 
Therefore,  the  only  method  available  to  allow  the  user  to  personalize  the  standard  reports 
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feature  of  the  ARIES  U/I  was  to  implement  another  large  "dead-code"  component,  like 
PowerPoint,  to  once  again  act  as  a  file  transfer  agent  for  graphic  analysis  editing. 

Another  difficulty  emerges  when  trying  to  integrate  new  versions  of  existing 
components  within  the  application's  architecture.  The  new  version  may  have  a  different 
look-and-feel  and  require  more  memory,  and/or  previous  data  formats  and  protocols  may 
no  longer  be  supported.  In  any  case,  another  C2C  incremental  cycle  will  need  to  be 
completed  to  ensure  application  compliance  and  functionality. 

The  only  way  in  which  to  make  various  disparate  components  operate  together 
reliably  is  to  adopt  a  strong  single  vendor  infrastructure  solution  (Microsoft)  and  work 
within  the  confines  and  limitations  inherent  to  the  selected  standards  and  architecture. 
Hopefully  in  the  future,  emerging  software  technologies  will  be  developed  and  distributed 
as  a  new  kind  of  component.  A  component  that  is  functionally  cohesive,  based  upon 
open  standards,  small  in  terms  of  complexity,  and  therefore  capable  of  operating  in 
conjunction  with  all  other  possible  components  and  software  applications.  (Figure  5-2). 

F.        SUMMARY. 

It  is  becoming  increasingly  clear  that  software  development,  which  relies  heavily 
upon  component-based  architecture,  requires  modifications  to  the  traditional  development 
methodologies.  Although  some  of  the  lessons  derived  from  ARIES  were  recurring 
themes  of  software  developments  lessons  of  the  past  recast  in  component-based  form, 
others  were  unique  to  the  particular  technologies  and  methods  used  within  the  structured 
C2C  paradigm.  In  the  final  chapter,  we  summarize  the  lessons  learned  from  this  SDSS 
exercise,  and  project  how  these  can  be  adapted  to  future  component-based  development 
applications. 
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Figure  4-2.  Component  Evolution  Diagram. 
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V.       CONCLUSIONS  AND  FUTURE  RECOMMENDATIONS. 


"Institutionalizing     organization-wide     decision-making    processes     and     an 
architecture  is  the  key  to  all  of  our  information  system  development  efforts...  and 
our  primary  measure  of  success  is  impact  on  the  bottom  line.'" 
Chief  Information  Officer  (GAO,  1994). 

"It  is  generally  very  difficult  to  keep  up  with  a  field  that  is  economically 
profitable,  and  it  is  only  natural  to  expect  that  many  of  the  techniques  described 
here  will  eventually  be  superseded  by  better  ones.'''' 

Donald  E.  Knuth,  The  Art  of  Computer  programming,  1973. 

"We  build  systems  like  the  Wright  brothers  built  airplanes  —  build  the  whole 
thing,  push  it  off  a  cliff,  let  it  crash,  and  start  over  again. " 

Professor  R.  M.  Graham,  Software  Engineering,  1969. 

A.       INTRODUCTION. 


This  chapter  synopses  the  underlying  themes  characterizing  the  development  and 
implementation  of  the  ARIES  SDSS.  It  summarizes  our  experience  with  using  the 
Concept-to-Code  (C2C)  design  heuristic  to  construct  software  within  the  context  of  a  new 
structured  paradigm,  and  provides  suggestions  and  insight  into  the  ARIES  Next 
Generation  (NEXGEN)  prototypes. 

B.        LOOKING  BACK. 

Reflection  upon  the  ARIES  SDSS  implementation  could  be  perceived  in  one  of 
two  ways:  as  "blind  luck",  a  one-time-success  story  that  by  sheer  happenstance  delivered 
exactly  what  the  user  wanted  with  a  development  team  that  had  no  prior  experience  with 
the  underlying  development  tools;  or,  in  a  more  realistic  light,  as  an  application  which 
provided  a  means  to  explore,  justify,  and  demonstrate  the  validity  of  using  component- 
based  computing   in  conjunction  with  rapid  application  development  techniques,  to 
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quickly  and  accurately  produce  a  scaleable,  extensible,  and  useful  decision  support 
application. 

The  C2C  design  heuristic  employed  for  ARIES  allowed  the  collaborative  team  to 
quickly  conceive  and  sketch  screens  and  displays,  and  then  build  the  user  interface  up 
front  in  a  short  turnaround  period.  Defining  how  the  components  of  the  application 
architecture  were  to  communicate  with  one  another,  drove  how  the  intended  functionality 
of  the  architecture  was  to  be  accomplished.  The  heuristic  allowed  the  developers  to 
"architect"  the  system  into  small  components  and  put  the  high  risk  segments  (e.g., 
primary  functionality)  at  the  head  of  the  prototyping  line,  rather  letting  them  slip  to  the 
end.  It  was  important  to  build  the  most  difficult  components  first  and  then  add  the  "nice- 
to-haves"  later  on.  C2C  also  greatly  improved  management  oversight  by  allowing  the 
application  development  process  to  be  layered  from  a  generic  concept  to  specialized 
solution. 

In  summary,  the  C2C  process  has  resulted  in  a  number  of  benefits: 

•  Facilitated   understanding   of  the   development   process   by   managers   and 
programmers  using  a  one-page  graphical  representation. 

•  Provided  concise,  definable  phases  with  clear  entry  and  exit  criteria  and 
staged  iterative  development. 

•  Fostered  an  atmosphere  of  continuous  quality  process  improvement  between 
users  and  developers. 

•  Allowed    small    development    teams   to    implement    large    scale,    complex 
applications  in  short  development  cycles. 

•  Provided  clear  communication  of  project  status  between  the  development 
team  and  management  on  a  daily  basis. 

The  success  of  the  ARIES  SDSS  could  be  considered  surprising,  but  in  reality  it 
was  no  fluke.  The  C2C  process,  applied  carefully,  can  lead  to  powerful  applications 
within  a  surprisingly  short  period  of  time,  months  vis-a-vis  years  as  in  the  case  of  ARIES. 
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Undoubtedly,  C2C  will  continue  to  undergo  experimental  refinement  and  improvement, 
as  it  may  very  well  become  the  mainstay  of  software  application  development. 

To  date,  the  ARIES  SDSS  is  effectively  deployed  on  the  USARC  local  area 
network,  as  well  as  USARC  staff  officers'  laptop  computers.  The  results  of  the  ARIES 
SDSS  deployment  have  been  very  positive  for  both  the  NPS  development  team  members 
and  the  USARC  staff.  The  issues  of  timely  and  consistent  response  to  site  relocation 
questions  appear  to  be  more  than  adequately  met  by  the  ARIES  SDSS  prototype. 

C.       LOOKING  FORWARD. 

1.        Current  Technology  Options. 

a.  Infrastructure:  A  Component  Update 

In  the  short  time  since  the  deployment  of  the  ARIES  SDSS  prototype  on 
the  USARC  LAN,  several  changes  have  occurred  with  its  primary  components.  All  of 
the  COTS  infrastructure  components,  with  the  exception  of  Logical  Decisions  for 
Windows,  have  had  new  versions  released  by  their  associated  vendors.  Each 
component's  functionality  has  been  greatly  enhanced  and  conforms  to  widely  accepted 
client-server  protocols.  This  includes  the  Visual  Basic  development  language,  which  has 
been  significantly  upgraded  to  function  exclusively  within  the  component-based 
paradigm.  Applications  created  in  Visual  Basic  5.0  are  now  fully  compilable  and  the 
ODBC  component  has  been  integrated  into  the  new  JET  SQL  3.5  RDBMS  engine.  If 
ARIES  code  were  migrated  unchanged  to  the  new  4GL  environment,  the  user  could 
expect  to  see  an  approximate  20%  increase  in  program  execution  time  and  a  dramatic 
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increase  in  non-native  data  processing  time.    This  would  also  greatly  reduce  the  time 
required  to  build  the  data  migration  warehouse  from  USARC's  FoxPro  2.0  data  sources. 

Maplnfo  and  MapBasic  have  also  been  improved,  however,  the  vendor  has 
also  created  a  separate  integrated  mapping  component,  called  MapX,  based  on  the 
Microsoft  ActiveX  standard.  MapX  allows  developers  to  directly  compile  the  desired 
mapping  functionality  with  the  prototyped  application,  thus  eliminating  the  need  for  OLE 
communications  between  the  two  components.  The  integrated  mapping  features  can  now 
be  "hardwired"  directly  into  the  ARIES  U/I  and  would  only  need  a  fourth  of  the 
computer  memory  currently  used  by  the  Maplnfo  application. 

b.  ARIES  DSS  Component  Redesign:  The  Need  for  Innovation 

The  current  version  of  LDW  in  its  16-bit  format,  is  still  more  than  capable 
of  providing  the  required  functionality,  but  as  USARC  upgrades  its  IT  infrastructure  to 
take  advantage  of  future  technology,  the  ARIES  DSS  component  in  its  unscalable  form, 
will  eventually  fail  to  provide  effective  decision  support.  What  is  needed  is  a  new 
scaleable  and  extensible  32-bit  DSS  component.  Currently,  there  are  no  vendors 
marketing  DSS  software  with  all  of  the  functionality  of  the  16-bit  LDW  application  (e.g., 
automatic  waiting,  dynamic  sensitivity,  etc.)  The  difficult  choice  is  to  either  wait  for 
market  conditions  to  change,  or  custom  develop  a  similar  DSS  component  with  the 

following  additional  features: 

•  Allow  the  decision  model  to  be  directly  manipulated  within  an  integrated 
window  on  the  ARIES  U/I. 

•  Allow  decision-makers  to  graphically  add  or  delete  new  decision  parameter 
nodes,  as  well  as  fully  document  how  they  are  calculated. 

•  Create  a  Report  Manager  that  allows  the  user  to  drag-and-drop  various 
decision  model  graphs  into  standard  documents  (e.g.,  Microsoft  Word, 
HTML,  etc.) 
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c.  Migrate  Decision  Making  to  the  Web 

In  order  to  take  advantage  of  US  ARC  s  upgraded  Windows  NT  operating 
system  and  the  continued  focus  on  network-centric  infrastructure;  the  competent 
developer  can  use  the  Visual  Basic  5.0  component  creation  tool  to  build  a  new  ARIES 
component  that  separates  the  USARC  business  rules  and  decision  parameter  calculations 
from  the  user  interface.  By  using  ActiveX  technology,  the  ARIES  SDSS  can  truly  be  a 
three-tier  client-server  application.  The  rules  and  processes  could  be  changed,  updated, 
or  added  separately  from  the  ARIES  U/I  while  still  in  accordance  with  corresponding 
changes  in  the  ARU-Decision  Model.  Development  time  can  now  be  better  spent 
elsewhere  instead  of  redesigning  the  U/I  every  time  a  business  rule  or  condition  changes. 

The  new  Visual  Basic  development  language  also  allows  the  developer  to 
"web-enable"  any  application  quickly  and  easily  from  within  the  4GL  environment.  The 
ARIES  U/I  could  now  be  rapidly  prototyped  within  a  common  development  environment 
by  the  collaborative  team  in  less  time,  using  a  web  browser  (e.g.,  Netscape  Navigator  or 
Microsoft  Explorer)  and  a  point-and-click  web  page  designer  (e.g.,  Adobe  PageMill  or 
NetFusion).  This  would  allow  ARIES  to  use  more  of  USARC's  stabilized  infrastructure, 
reduce  the  amount  of  software  maintenance  support  needed,  and  reduce  the  number  of 
languages  and  development  tools  that  the  application  developer  must  learn. 

2.        Future  Technology  Options. 

An  important  concern  is  how  far  the  process  of  simplification  of  the  user  interface 
should  go  to  provide  easy  access  to  spatial  information  without  sacrificing  necessary 
functionality.  Prototyped  software  that  enables  site  selection  across  space  and  time  using 
a  component-based  infrastructure  like  the  ARIES  SDSS,  has  been  created  as  one  small 
step  towards  the  continued  development  of  spatial  decision  support  systems.    Thanks  to 
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new  component-based  software  tools,  it  is  now  possible  to  create  compact,  yet 
specialized  web-based  applications  that  allow  inexperienced  users  to  participate  to  a 
greater  extent  in  solving  local,  spatially  oriented  problems  as  decision-makers  rather  than 
as  programmers.  This  is  all  desirable  as  far  as  it  goes,  but  without  changes  to  other 
peripheral  issues,  the  future  capabilities  of  the  ARIES  NEXGEN  can  only  advance  so  far. 
The  USARC  business  processes  related  to  site  selection  decisions  are  ripe  for  a 
concentrated  reengineering  effort  that  has  the  future  in  mind  —  Visioneering. 

a.  Data  Source  Management 

The  underlying  data  management  philosophy  of  the  NEXGEN  SDSS  is 
that  the  entire  USARC  network,  local  and  remote  sites,  comprise  a  single,  large  virtual 
"Resources-to-Readiness"  data  migration  warehouse.  The  decision-maker  should  be  able 
to  access  any  and  every  data  source  relating  to  site  selection  whether  on  an  Army  Reserve 
mainframe  in  Washington  D.C.,  or  a  spatial  data  server  on  the  local  LAN;  all  from  within 
the  browser  U/I.  In  today's  network-centric  ecosystem,  it  makes  good  sense  to  use  the 
web  as  an  operating  desktop  since  it  is  a  logical  interface  that  most  users  can  quickly 
learn  and  understand.  Essentially,  the  NEXGEN  is  a  network  user  interface  (NUI), 
whereby  the  user  is  able  to  seamlessly  apply  business  rules  and  calculate  decision 
parameters  without  having  to  have  knowledge  of  where  the  data  actually  resides. 

The  NUI  will  improve  database  processing  by  leveraging  the  flexibility  of 
the  web  middleware  to  pull  data  simultaneously  from  all  local  and  mainframe  data  stores 
using  open  standards.  In  short,  web-based  technologies  act  as  a  "data  resolver"  to 
connect  decision-makers  to  information  no  matter  where  it  is  stored  or  how  it  is 
structured  (Joch,  1997,  p.  104D). 
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b.  Decision-Maker  Knowledge  Management 

In  order  to  adapt  to  the  continuous  turnover  of  military  personnel  at 
USARC  headquarters,  the  NEXGEN  SDSS  needs  to  be  able  to  interactively  model  and 
capture  the  corporate  knowledge  about  various  data  sources,  business  rules,  and  ad-hoc 
queries  residing  in  the  minds  of  the  decision-makers.  When  stored  and  replicated,  this 
meta-data  knowledge  becomes  a  reusable  resource  that  ensures  a  given  decision  analysis 
can  be  based  on  repeatable  findings.  In  short,  this  means  knowledge  management 
through  automation. 

c.  Decision  Parameter  Derivation  in  Parallel 

Although  new  technologies  and  software  are  produced  everyday,  the 
appetite  for  higher  application  performance  is  never  satiated.  The  sequential  calculation 
of  ARIES  decision  parameters  using  spatial  selection  was  a  superior  solution  for  mobile 
decision-makers,  but  within  the  NT  ecosystem,  parallelism  is  an  even  better  solution. 
The  NT  network  supports  this  by  near  simultaneous  launching  of  remote  automated  OLE 
server  objects  for  decision  parameter  computations  onto  the  network.  In  this  scenario, 
the  idle  processors  of  any  desktop  computers  attached  to  the  network  can  be  utilized  to 
calculate  all  the  decision  parameters  essentially  in  parallel.  Depending  on  the  amount  of 
network  traffic  present,  the  entire  decision  parameter  matrix  could  be  hypothetically 
calculated  in  the  same  amount  of  time  it  now  takes  to  complete  just  one  complex  decision 
parameter  query. 

3.        Future  Scenario:  The  Final  Episode. 


Users  want  to  shape  the  technology  that  is  implemented  in  their 
organization.  They  want  to  control  its  use  and  determine  the  effect  it  will 
have  on  their  own  work.     They  are  rapidly  understanding  that  their 
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effective  use  of  technology  coupled  with  a  change  in  how  they  do  business 
will  determine  their  personal  and  organizational  success.  (Tapscott,  1993, 
p.  14) 

As  component-based  computing  becomes  more  and  more  the  norm  for  application 

development  within  civilian  and  military  organizations,  developing  future  IT  decision 

support  systems  may  become  a  far  easier  and  user-friendlier  process.    Just  ask  Colonel 

McMurdo  about  his  ARGIS  21  system: 

1721  HRS:  "Hey  Jack!  That  ARGIS  21  product  is  your  responsibility,  right?"  It 
was  Brigadier  General  Mark  Rutherford,  Col.  McMurdo 's  immediate  boss,  on  the  phone. 

"Yes  Sir,"  the  Colonel  replied. 

"Well  the  Old  Man  just  got  a  call  about  the  BRAC  situation  on  CNN.  After  that 
'stick-save'  at  the  hearing  today,  you're  stock  is  up  20  prestige  points.  As  a  matter  of 
fact,  you  have  a  meeting  with  the  Chairman  and  the  other  Four  Stars  in  the  Tank  first 
thing  tomorrow  morning  Seems  they  have  big  plans  for  ARGIS  21  concerning  better 
force  dispersion,  limited  over-the-horizon  target  selection,  and  real-time  Joint  logistics 
shipping  status.  You'd  better  bring  that  laptop  of  yours." 

"I'm  on  it,  Sir,"  McMurdo  responded,  "and  while  I'm  at  it,  I'd  better  give  those 
people  back  at  NPS  a  call.  Looks  like  we're  going  to  be  quite  busy." 
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APPENDIX  A.      ARIES  SOURCE  DATA  FILE  META-DATA. 

This  appendix  contains  the  meta-data  that  was  documented  for  the  ARIES  SDSS 
prototype  data  source  files.  "ACROPOLIS"  as  used  in  this  appendix  refers  to  the  file 
name  of  the  ARIES  data  migration  warehouse  (DMW). 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


AMSA 


File  Type:       FoxPro  2.6 


Location:      ../Aries/MapBasic/USARCData 

Size(MB):       .026  No.  Records:         190 


Associated  ARIES  Tables:       Not  in  ACROPOLIS.  Geocoded  for  use  in  Maplnfo 


File  Description: 

AMSA  File  contains  information  about  the  location  of  each  AMSA  station.   It  is  used  in  determining  the 


value  for  the  distance  to  the  nearest  AMSA. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

facid 

Facility  Identification  Code 

Char 

No 

factitle 

Facility  Title 

Char 

No 

facstreet 

Street  Address  of  Facility 

Char 

No 

faccity 

City  Facility  is  located  in 

Char 

No 

facstate 

State  Facility  is  located  in 

Char 

No 

faczip 

Zip  Code  of  the  Facility 

Char 

No 

abbtype 

Char 

No 

Extract  Queries: 

NONE 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


COMMAND  PLAN 


Location:         ACROPOLIS 


File  Type:        FoxPro  2.6 


Size(MB):       3.29 


No.  Records:  9,897 


Associated  ARIES  Tables:       CMDPLAN 


File  Description: 

Command  Plan  is  the  file  that  contains  information  about  each  unit  in  the  Army  Reserve.  It  is  used  to 
cross  reference  FAC  ID's  with  UIC's.  It  is  also  used  to  screen  for  Valid  UlC's  with  in  the  next  13  months. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

UIC 

Unit  Identification- Code 

Char 

yes 

FACID 

Facility  Identification  Code 

Char 

no 

EDATE 

Effective  Date  of  Transaction 

Char 

no 

Extract  Queries: 

CMDPLAN 

SELECT  DISTINCT  UIC,  FACID  AS  FACJD, 
EDATE 

FROM      COMMANDPLAN 

WHERE  (FACID  o  "N/A")  AND  (FACID  o 
"TBD")  AND  (FACID  o  "")  AND 
(LEN(FACID)  >  2)  AND 
((LEFT(EDATE,4)  =  '1998'  AND 
M1D(EDATE,5,2)  <=  '02')  OR 
(LEFT(EDATE,4)  <=  '1997')) 

ORDER  BY    UIC,  EDATE  DESC 

INTO       CMDPLAN 

INDEX  ON  UIC  as  UIC 

Note:  Application  automatically  adjusts  the 
dates  to  obtain  a  13  month  window. 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


COMPLEX 


Location:         ACROPOLIS 


File  Type:         FoxPro  2.6 


Size(MB):       2.1 


No.  Records: 


1,557 


Associated  ARIES  Tables: 


COMPLEX 


File  Description: 

The  Complex  File  is  used  to  determine  if  the  facility  is  owned  by  or  leased  to  the  government  and  the 
number  of  weekends  each  facility  is  used  during  a  month. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

FACID 

Facility  Identification  Code 

Char 

yes 

GOVTOWN 

Facility  ownership  status 

Char 

Y/N 

no 

RSWKNDPM 

Reserve  Station  weekend  usage  per  mo. 

Number 

0-4 

no 

Extract  Queries: 

COMPLEX_ 

SELECT  FACID,  GOVTOWN  AS 

FAC_OWNED,  RS_WKND_PM  AS 

FAC_WKND_USED 
FROM      COMPLEX 
WHERE  LEN(FACJD)  =  5 
INTO       COMPLEX_ 
INDEX  ON  FAC  ID  as  FACID,  Primary,  Unique 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


ECS 


Location:         . .  .\MapBasic\USARCData\ 


File  Type:        FoxPro  2.6 


Size(MB):       .004 


No.  Records: 


30 


Associated  ARIES  Tables:  Not  in  ACROPOLIS,  Geocoded  for  use  in  Maplnfo 

File  Description: 

ECS  File  contains  information  about  the  location  of  each  Equipment  Center.  It  is  used  in  determining  the 
distance  to  the  nearest  ECS. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

facid 

Facility  Identification  Code 

Char 

No 

factitle 

Facility  Title 

Char 

No 

facstreet 

Street  Address  of  Facility 

Char 

No 

fac_city 

City  Facility  is  located  in 

Char 

No 

facstate 

State  Facility  is  located  in 

Char 

No 

faczip 

Zip  Code  of  the  Facility 

Char 

No 

abbtype 

Char 

No 

Extract  Queries: 

NONE 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


FINANCE 


Location:         ACROPOLIS 


File  Type:        FoxPro  2.6 


Size(MB):       83.4 


No.  Records:  311,793 


Associated  ARJES  Tables:  FINANCE_,  FINANCEQTR 


File  Description: 

Finance  is  the  file  that  contains  pay  information  for  the  previous  eight  quarters  about  every  Reservist.  It  is 
used  to  obtain  information  about  Drill  Attendance  for  a  given  Facility. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

CURRJJIC 

Current  Unit  Identification  Code 

Char 

No 

UTA1QCFY 

Unit  Training  Attendance  for  Is'  Qtr  this  FY 

Number 

No 

UTA2QCFY 

Unit  Training  Attendance  for  2nd  Qtr  this  FY 

Number 

No 

UTA3QCFY 

Unit  Training  Attendance  for  3ld  Qtr  this  FY 

Number 

No 

UTA4QCFY 

Unit  Training  Attendance  for  4"'  Qtr  this  FY 

Number 

No 

UTA1Q1PF 

Unit  Training  Attendance  for  Is'  Qtr  last  FY 

Number 

No 

UTA2Q1PF 

Unit  Training  Attendance  for  2"d  Qtr  last  FY 

Number 

No 

UTA3Q1PF 

Unit  Training  Attendance  for  3rd  Qtr  last  FY 

Number 

No 

UTA4Q1PF 

Unit  Training  Attendance  for  4lh  Qtr  last  FY 

Number 

No 

Extract  Queries: 

FINANCE_ 

SELECT  "W"  &  LEFT(CURR _U1C,5)  AS  UIC, 

COUNT(CURRJJIC)  AS 

UIC_TOTAL 
FROM      FINANCE 
WHERE  CURRJJIC  o  "" 
ORDER  BY    CURRJJIC 
GROUP  BY    CURRJJIC 
INTO       F1NANCE_ 
INDEX  ON  UIC  as  UIC 


FINANCEQTR 

SELECT  "  W"  &  LEFT(CURR_UIC,5)  AS  UIC, 

UTA1QCFY,  UTA2QCFY,  UTA3QCFY, 

UTA4QCFY,  UTA1Q1PF,  UTA2Q1PF, 

UTA3Q1PF,  UTA4Q1PF 
FROM      FINANCE 
WHERE  CURRJJIC  o  ""  AND  NPSJND  =  NULL 

AND  PAYSTAT  =  'A' 
ORDER  BY    CURRJJIC 
INTO      FINANCE_QTR 
INDEX  ON  UIC  as  UIC 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


FPS 


File  Type:         FoxPro  2.6 


Location:         ACROPOLIS 


Size(MB):       .088 


No.  Records: 


1,561 


Associated  ARIES  Tables: 


FPS 


File  Description: 

FPS  is  used  to  obtain  information  about  the  Cost  to  operate  each  facility  as  well  as  the  Condition  of  each 
Facility.  Used  to  return  a  value  for  the  Cost  per  Square  Foot  and  the  Facility  Condition. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

FACJD 

Facility  Identification  Code 

Char 

No 

FAC_COND 

Condition  of  the  Facility 

Char 

No 

COST  PR  SF 

Cost  per  Square  Foot  to  Operate  Facility 

Number 

No 

Extract  Queries: 
FPS_ 

SELECT  FACJD,  FAC_COND,  COST  PR  SF 

FROM      FPS 

WHERE  FACJD  o  "" 

ORDER  BY    FACJD 

INTO       FPS_ 

INDEX  ON  FACJD  as  FAC1D,  Primary,  Unique 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


FYxxLOSS 


Location:         ACROPOLIS 


File  Type:        FoxPro  2.6 


Size(MB):       85.4 


No.  Records:  260,000 


Associated  ARIES  Tables:  FYxxLOSS,  FYxxXFER 


File  Description: 

FYxxLOSS  file  contains  information  about  the  personnel  losses  incurred  by  each  unit  during  a  fiscal  year. 
It  is  used  to  determine  the  Average  Loss  and  Transfer  Rate  of  a  Unit. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

UIC 

Unit  Identification  Code 

Char 

No 

TRMN 

Transfer  Reason  Code 

Char 

No 

Extract  Queries: 

FYxxLOSS 

SELECT  UIC1  AS  UIC,  COUNT(UICl)  AS 

UICTOTAL 
FROM      FYLOSS 
WHERE  TRMN  =  'LOSS' 
ORDER  BY  UIC  1 
GROUP  BY  UIC  1 
INTO       FYxxLOSS 
INDEX  ON  UIC  as  UIC,  Primary,  Unique 


FYxxXFER 

SELECT  UIC1  AS  UIC,  COUNT(UIC  1 )  AS 

UICTOTAL 
FROM      FYLOSS 
WHERE  TRMN  =  'TRFD' 
ORDER  BY     UIC1 
GROUP  BY     UIC1 

INTO       FYxxXFER 

INDEX  ON  UIC  as  UIC,  Primary,  Unique 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


G17 


Location:        ACROPOLIS 


File  Type:         FoxPro  2.6 


Size(MB):      3.11 


No.  Records:  5,869 


Associated  ARIES  Tables: 


G17Natl 


File  Description: 

G17  file  contains  facility  Unitname,  street  address  data  and  Zip  Code.  It  is  used  as  the  primary  cross 
reference  with  Command  Plan  to  display  facility  information  and  validate  user  input. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

UIC 

Unit  Identification  Code 

Char 

No 

UNITNAME 

Name  of  the  Unit 

Char 

No 

TCCCITY 

City  Unit  is  located  in 

Char 

No 

TCCSTATE 

State  Unit  is  located  in 

Char 

No 

TCCZIP 

Zip  code  of  the  Unit 

Char 

No 

TIER 

Code  used  to  determine  if  Unit  is  closing 

Char 

No 

RECSTAT 

Recruiting  Station  Code 

Number 

No 

TYPEORG 

Type  of  organization 

Number 

No 

Extract  Queries: 

G17Natl 

SELECT  UIC,  UNITNAME,  TCCCITY  AS 
CITY,  TCCSTAT  AS  STATE, 
LEFT(TCCZIP,5)  AS  ZIP,  TIER 

FROM      G17 

WHERE  (RECSTAT  o  "1 ")  AND  (TYPEORG 
o  "2")  AND  UIC  o  "" 

ORDER  BY    UIC 

INTO       G17Natl 

INDEX  ON  UIC  as  UIC,  Primary,  Unique 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


G18CWE 


Location: 


File  Type:        FoxPro  2.6 


Size(MB):       145.9 


ACROPOLIS;..\MapBasic\UsarcDat 
a 

No.  Records:  208,416 


Associated  ARIES  Tables:  G18Natl,  G18Natl_UIC;  also  Geocoded  for  use  in  Maplnfo 

File  Description: 

G18  File  contains  information  about  personnel  in  the  US  Army  Reserves.  It  is  used  in  determining  the 
Total  Number  Assigned  used  in  calculating  the  Loss/Transfer  Rates,  Total  Available  Closing  and  the 
Reassignments  values.  Also  used  to  obtain  a  list  of  the  Zip  Code's  and  MOSs  of  every  Reservists  with  their 
associated  UIC. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

UIC 

Unit  Identification  Code  assigned 

Char 

No 

ZIP 

Zip  Code  of  the  individual 

Char 

No 

PR] 

Primary  MOS 

Char 

No 

Extract  Queries: 

G18Natl 

SELECT  UIC,  LEFT(ZIP,5)  AS  ZIPCODE, 

LEFT(PRI,3)  AS  MOS 
FROM      G18_ 

WHERE  PRI  o  ""  AND  UIC  o  "" 
ORDER  BY  UIC 
INTO       G18Natl 
INDEX  ON  UIC  as  UIC 


G18Natl_UIC 

SELECT  UIC,  COUNT(UIC)  AS  UICJTOTAL 

FROM      G18Natl 

ORDER  BY     UIC 

GROUP  BY     UIC 

INTO        G18Natl  UIC 

INDEX  ON  UIC  as  UIC,  Primary,  Unique 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


G19TRUE 


Location:        ACROPOLIS 


File  Type:        FoxPro  2.6 


Size(MB):       14.4 


No.  Records:  233,211 


Associated  ARIES  Tables: 


G19Natl 


File  Description: 

G19  File  contains  information  about  the  required  manning  levels  of  each  Unit.  It  is  used  in  determining 
Average  Area  Manning  for  a  Facility. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

OWNUIC 

Unit  Identification  Code 

Char 

No 

Extract  Queries: 

G19Natl 

SELECT  OWNUIC  AS  UIC, 

COUNT(OWN_UIC)  AS 

UIC_TOTAL 
FROM      G19 
WHERE  OWNUIC  o  "" 
ORDER  BY    OWNJJIC 
GROUP  BY    OWNJJIC 
INTO       G19Natl 
INDEX  ON  UIC  as  UIC 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


GEOREF 


Location:     ACROPOLIS;. .\MapBasic\UsarcData 


File  Type:        FoxPro  2.6 


Size(MB):       .21 


No.  Records: 


1,553 


Associated  ARIES  Tables:  VALIDUNIT;  also  Geocoded  for  use  in  Maplnfo 


File  Description: 

Georef  File  contains  specific  information  about  each  Unit.  It  is  used  to  verify  and  cross  reference  FACID's 
and  UIC  as  well  as  Facility  and  Unit  specific  information. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

FACID 

Facility  Identification  Code 

Char 

No 

FAC  TITLE 

Name  of  the  Facility 

Char 

No 

FAC  CITY 

City  the  Facility  is  located  in 

Char 

No 

FAC  STATE 

State  the  Facility  is  located  in 

Char 

No 

FAC  ZIP 

Zip  Code  of  the  Facility 

Char 

No 

Latitude 

Position  of  Facility  by  degree  of  latitude 

Number 

No 

Longitude 

Position  of  Facility  by  degree  of  longitude 

Number 

No 

Extract  Queries: 

VALIDUNIT 

SELECT  FACJD,  FAC_TITLE  AS 

UNITNAME,  FACCITY  AS  CITY, 
FAC_STATE  AS  STATE, 
LEFT(FAC_ZIP,5)  AS  ZIP 

FROM      GEOREF 

WHERE  FACJD  o  "" 

ORDER  BY    FAC  ID 

INTO       VALIDJJNIT 

INDEX  ON  FAC  ID  as  FACID 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


INTEREST 


Location:         ACROPOLIS 


File  Type:        FoxPro  2.6 


Size(MB):      4.2 


No.  Records: 


3,985 


Associated  ARIES  Tables: 


INTEREST 


File  Description: 

Interest  File  contains  information  about  facilities  and  the  date  they  were  acquired.  It  is  used  to  calculate 
the  Facility  Age  for  each  facility.. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

FACJDSTR 

Facility  Identification  Code 

Char 

No 

DATEACQ 

Date  Facility  Acquired 

Date 

No 

ABB  TYPE 

Char 

No 

Extract  Queries: 

INTEREST_ 

SELECT  FACJDSTR  AS  FACJD,  DATEACQ 

FROM      INTEREST 

WHERE  FACJDSTR  o  ""  AND  ABB  TYPE  = 

"USARC(MB)"  AND  NOT 

ISNULL(DATEACQ) 
ORDER  BY    FACJDSTR 
INTO       INTEREST_ 
INDEX  ON  FACJD  as  FACID,  Primary,  Unique 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


IRR 


Location:         ...\MapBasic\UsarcData 


File  Type:         FoxPro  2.6 


Size(MB):       7.5 


No.  Records: 


140,077 


Associated  ARIES  Tables:  Not  in  ACROPOLIS,  Geocoded  for  use  in  Maplnfo 

File  Description: 

IRR  File  contains  information  about  the  individuals  listed  in  the  Individual  Ready  Reserve.  It  is  used  to 
determine  the  value  for  IRR  Available  and  Available  MOS  IRR. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

ZIPC 

Zip  Code  for  IRR  Individual 

Char 

No 

Extract  Queries: 

NONE 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


NGNON  CL 


Location:        ...\MapBasic\UsarcData 


File  Type:        FoxPro  2.6 


Size(MB):       .64 


No.  Records: 


3,673 


Associated  ARIES  Tables:  Not  in  ACROPOLIS,  Geocoded  for  use  in  Maplnfo 


File  Description: 

NGNONCL  File  contains  information  about  the  non-closing  National  Guard  Units.  It  is  used  in 
determining  the  value  for  Competition. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

UPC 

Char 

Yes 

ZIP 

Zip  Code  for  National  Guard  Individual 

Char 

Yes 

Extract  Queries: 

NONE 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


QMA 


Location: 


AMapBasic\UsarcData 


File  Type:         FoxPro  2.6 


Size(MB):       2.8 


No.  Records: 


34,265 


Associated  ARIES  Tables:  Not  in  ACROPOLIS,  Geocoded  for  use  in  Maplnfo 

File  Description: 

QMA  File  contains  Census  information.  It  is  used  in  determining  the  value  for  Recruit  Market  for  each 
Facility. 


Required  Data  Elements 


Name 

Description 

Data 
Type 

Format 

Key 
Field 

ZIP 

Zip  Code 

Char 

No 

MWCAT12 

White  Male  Mental  Categories  1  &2 

Number 

No 

MWCAT3A 

White  Male  Mental  Category  3A 

Number 

No 

MBCAT12 

Black  Male  Mental  Categories  1  &2 

Number 

No 

MBCAT3A 

Black  Male  Mental  Category  3A 

Number 

No 

MHCAT12 

Hispanic  Male  Mental  Categories  1  &2 

Number 

No 

MHCAT3A 

Hispanic  Male  Mental  Category  3A 

Number 

No 

Extract  Queries: 

NONE 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


RPINFODT 


Location:        ACROPOLIS 


File  Type:        FoxPro  2.6 


Size(MB):       14.3 


No.  Records:  47,159 


Associated  ARIES  Tables:  FPINFODT 


File  Description: 

RPINFODT  is  a  file  that  contains  information  about  the  backlogged  maintenance  costs  of  each  Facility.    It 
•     is  used  to  determine  the  amount  of  backlogged  maintenance  is  required  at  the  given  Facility. 


Required  Data  Elements 


Name 

Description 

Data 

Type 

Format 

Key 
Field 

FAC  ID 

Facility  Identification 

Char 

No 

CWETOTAL 

Total  amount  of  outstanding  Maint.  Actions 

Number 

No 

Extract  Queries: 
RPINFODT_ 
SELECT  FACID,  SUM(CWETOTAL)  AS 

MAINT_COST 
FROM      RPINFODT 
WHERE  FACID  o  "" 
ORDER  BY    FAC  ID 
GROUP  BY    FACJD 
INTO       RPINFODT_ 
INDEX  ON  FACJD  as  FACID,  Primary,  Unique 
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ARIES  Data  File  Documentation  Form 


ARIES  File  Name: 


RZA 


Location: 


.\MapBasic\UsarcData 


File  Type:        FoxPro  2.6 


Size(MB):       .16 


No.  Records: 


1,793 


Associated  ARIES  Tables:  Not  in  ACROPOLIS,  Geocoded  for  use  in  Maplnfo 


File  Description: 

RZA  File  contains  information  about  the  location  of  Recruit  Stations.  It  is  used  to  determine  the  distance 
to  the  nearest  Recruit  Station. 


Required  Data  Elements 


Name 

Description 

Data 

Type 

Format 

Key 
Field 

rsid 

Recruit  Station  Identification  Code 

Char 

No 

name 

Recruit  Station  Title 

Char 

No 

zip 

Zip  Code  of  the  Recruit  Station 

Char 

No 

latitude 

Position  of  Recruit  Station  by  latitude 

Number 

No 

longitude 

Position  of  Recruit  Station  by  longitude 

Number 

No 

Extract  Queries: 
NONE 
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APPENDIX  B.      ARIES  BUSINESS  RULES  AND  PROCESSES. 

This  appendix  contains  detailed  information  about  the  calculation  of  each  ARU-Decision 
Model  parameter  that  was  automated  in  the  ARIES  SDSS  prototype  application.  The 
information  includes  a  description  of  each  decision  parameter,  the  business  rule  used  to  calculate 
the  associated  value,  base  units,  source  files,  associated  data  migration  warehouse 
(ACROPOLIS)  tables,  query  or  queries  involved  in  the  calculation,  a  description  of  the  yield 
curve,  and  a  graph  of  the  yield  curves.  "ACROPOLIS"  is  the  file  name  for  the  ARIES  data 
resource  file. 

The  term  "in  the  area"  in  this  Appendix  is  defined  as  being  with  in  a  50-mile  radius  of  the 
moving  unit  or  proposed  facility. 
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Decision  Parameter  1.  Facility  Backlogged  Maintenance 

Definition:  Facility  Backlogged  Maintenance  provides  the  total  dollar  value  of  backlogged 
maintenance.  This  provides  an  indication  of  the  initial  investment  required  to 
correct  the  significant  maintenance  problems  with  a  proposed  facility. 

Calculation:  The  Backlogged  Maintenance  value  is  based  upon  the  sum  values  for  maintenance 
actions  documented  for  each  facility  in  the  "CWETOTAL"  field  of  the 
RPINFODT  file.  The  summation  is  done  during  the  data  extraction  phase. 

Maint_Cost[Sum  of  outstanding  maintenance  actions  for  a  facility] 


Units: 


Dollars 


Source  File:     RPINFODT 

ACROPOLIS  Table(s):  RPINFODT_ 

Query:  MaintCost 

SELECT    MAINTCOST 

FROM       RPINFODT_ 

WHERE     RPINFODT.FACID  =  ProposedFacility.FACJD 

Yield  Curve:  A  linear  relationship  is  assumed  between  the  backlogged  maintenance  costs  and 
utility.  Every  dollar  required  or  saved  in  this  category  is  expected  to  have  equal 
utility  to  a  relocating  unit. 


Utility 


Dollars 


1,000,000 


Max  Utility:    0 


Min  Utility:     >  1,000,000 
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DECISION  PARAMETER  2.  Facility  Operating  Costs 

Definition:  Facility  Operating  Costs  provide  an  indication  of  the  financial  resources  that  are 
required  to  maintain  the  facility  in  a  serviceable  condition.  This  includes  both 
utilities  and  minor  maintenance  costs. 

Calculation:    Operating  Costs  are  extracted  from  the  "COSTPRSF"  field  of  the  FPS  file. 

COSTPRSF  [Retrieve  the  Cost  per  Square  Foot  for  a  facility] 

Units:  Dollars  per  square  foot  per  month 

Source  File:     FPS 

ACROPOLIS  Table(s):     FPS_ 

Query:  COST_PR_SF 

SELECT    COST_PR_SF 

FROM       FPS_ 

WHERE     FPS_.FACID  =  ProposedFacility.FACJD 

Yield  Curve:  A  linear  relationship  is  assumed  between  the  operating  costs  and  utility.  Every 
dollar  required  or  saved  in  this  category  is  expected  to  have  equal  utility  to  a 
relocating  unit. 


Utility 


Dollars/square  foot  per  month 


Max  Utility:    0 


Min  Utility:     >  100 
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Decision  Parameter  3.  Facility  Age 

Definition:  This  Decision  Parameter  indicates  the  age  of  the  primary  structure  on  the 
proposed  relocation  site.  It  is  intended  to  reflect  an  assumed  long  term  structural 
degradation  with  time. 

Calculation:  Facility  age  is  calculated  based  upon  the  acquisition  date  found  in  the  INTEREST 
file.  The  acquisition  date  is  compared  to  the  current  date  and  the  difference  is 
determined  in  months. 

DATEACQ  [Current  Year  -  Date  Acquired] 


Units: 


Months 


Source  File:     INTEREST 

ACROPOLIS  Table(s):     INTEREST 

Query:  DATEACQ 

SELECT  DATE_ACQ 
FROM  INTEREST_ 
WHERE    INTEREST.FACID  =  ProposedFacility.FACJD 

Yield  Curve:  A  linear  relationship  is  used  between  facility  age  and  utility. 


Utility 


1,200 


Months 


Max  Utility:    0 


Min  Utility:     >  1,200 
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Decision  Parameter  4.  Facility  Condition 

Definition        Facility  Condition  is  based  upon  a  visual  inspection  of  the  structure  and  provides 
an  indication  of  the  serviceability  of  the  primary  structures. 

Calculation:    This  Decision  Parameter  is  based  upon  the  ISR  part   1   rating  entered  in  the 
"FAC  COND"  field  of  the  FPS  file. 


Units: 


FAC_COND [Retrieve  Facility  Condition] 
No  Units(Green,  Amber,  Red) 


Source  File:     FPS 

ACROPOLIS  Table(s):  FPS 

Query:  FAC_COND 

SELECT    FAC_COND 

FROM       FPS_ 

WHERE    FPS_.FACID  =  ProposedFacility.FACJD 

Yield  Curve:  The  utility  of  these  three  categories  varies  in  discrete  steps.  A  facility  that  is 
categorized  as  "green"  is  judged  to  be  approximately  twice  a  desirable  as  one  that 
is  assigned  an  "amber"  rating. 


1.0  i- 


Utility       0.5 


RED 


:'< 


AMBKR 


GREEN 


Max  Utility:    GREEN 


Min  Utility:     RED 
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Decision  Parameter  5.  Facility  Ownership 

Definition:       This  Decision  Parameter  indicates  whether  the  facilities  at  a  proposed  relocation 
site  are  leased  or  owned. 

Calculation:    Facility  Ownership  is  based  upon  the  entry  in  the  "GOVTOWN"  field  of  the 
COMPLEX  file. 

GOVT_OWN[Retrieve  Ownership  Status] 


Units: 


No  Units(Yes/No) 


Source  Data:  COMPLEX 

ACROPOLIS  Table(s):     COMPLEX 

Query:  GOVT_OWN 

SELECT    GOVT  OWN 

FROM       COMPLEX_ 

WHERE     COMPLEX_.FACID  =  ProposedFacility.FACJD 

Yield  Curve:  Facilities  that  are  owned  by  the  government  are  preferred  as  relocation  sites  over 
those  facilities  that  are  leased.  The  owned  sites  are  assigned  the  maximum  utility 
value  of  1 .0,  while  leased  sites  are  given  a  0  utility  score. 


i.or 


Utility 


0.5 


NO 


YES 


Max  Utility:    Yes 


Min  Utility:     No 
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Decision  Parameter  6.  Competition 

Definition:  This  Decision  Parameter  provides  an  indication  of  the  level  of  competition  for 
potential  reservists.  It  considers  only  Army  Reserve  and  Army  National  Guard 
units  in  the  area  of  the  relocation  site. 

Calculation:  Competition  is  determined  by  the  number  of  positions  that  must  be  filled  by  all 
other  Army  Reserve  and  Army  National  Guard  (ARNG)  units  in  the  area  of  the 
proposed  relocation  site.  For  Army  Reserve  units,  the  number  of  required 
positions  is  determined  by  counting  the  number  of  records  in  the  G19TRUE  file 
associated  with  each  UIC  in  the  area.  For  ARNG  units,  the  value  is  found  in  the 
"AUTH"  field  of  the  NGNON_CL  file. 

NO_AUTH_NG[Number  Authorized  National  Guard]  + 

NOREQD  [Number  Area  Reservists  Required] 

Units:  Number  of  competing  positions 

Source  File:     COMMAND  PLAN,  G17,  G19TRUE,  GEOREF,  NGNON_CL 

ACROPOLIS  Table(s):  CMDPLAN,  G17Natl,  G19Natl,  VALIDJJIC 

Query:  Area-FACID  List(MapInfo) 

SELECT    FACJD  INTO  TempFACID 

FROM       GEOREF 

WHERE    Object  Within  ObjAreaBuffer 

ORDER  BY  FACJD 

(Note:  ObjAreaBuffer  is  equal  to  300  miles) 

VALIDJJIC 

SELECT    UIC,  FACJD,  UnitName,  City,  State,  Zip 
FROM       G17Natl 

WHERE    G 1 7Natl.UIC  -  ANY  (SELECT  CMDPLAN.UIC 

FROM  CMDPLAN) 

Area-UICList 

SELECT    DISTINCT  UIC  INTO  AREA  UIC 
FROM       VALIDJJIC 

WHERE    VALID JJIC.FAC JD  =  ANY  (SELECT  AREA_FACID.FAC JD 

FROM  AREA  J"  ACID) 

NO_AUTH_NG(MapInfo) 
SELECT    *  INTO  TempNGUnits 
FROM       NON_CLOS 
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WHERE     Obj  Within  ObjAreaBuffer 

SELECT    SUM(AUTH)  "No_AUTH_NG"  INTO  Strength 
FROM       TempNGUnits 

NO_REQD 

SELECT    SUM(UICJTOTAL)  AS  TOTAL_REQD 
FROM       G19Natl 

WHERE     G19Natl.UIC  =  ANY  (SELECT  AREAJJIC.UIC 

FROM  AREAJJIC) 

Yield  Curve:  A  linear  relationship  exists  between  the  number  of  competing  positions  from  other 
units  and  the  utility  of  a  relocation  site.  The  level  of  no  site  utility  in  this 
Decision  Parameter  begins  at  10,000  positions  which  is  above  the  maximum  value 
expected. 


Utility 


Competing  Positions 


10,000 


Max  Utility:    0 


Min  Utility:     >  10,000 
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Decision  Parameter  7.  Average  Area  Drill  Attendance 

Definition:  This  Decision  Parameter  indicates  the  fraction  of  reservists  with  satisfactory  drill 
attendance  for  all  existing  units  in  the  area  of  the  proposed  relocation  site.  Areas 
with  a  high  fraction  of  satisfactory  drill  attendance  are  preferred  relocation  sites 
because  units  relocated  to  that  area  are  assumed  to  perform  similarly  in  drill 
attendance. 

Calculation:  This  Decision  Parameter  considers  the  last  four  quarters  of  data  contained  in  the 
FINANCE  file.  After  initial  screening,  the  number  of  reservist  with  21  or  more 
drill  periods  for  the  year  is  divided  by  the  total  number  of  people  who  meet  the 
screening. 

DRILLSAT  [Number  of  reservists  with  >  21  drill  periods  in  a  year] 
DRILLTOTAL  [Number  of  reservists  required  to  drill] 


Units: 


Ratio 


Source  File:     COMMAND  PLAN,  FINANCE,  G 1 7,  G 1 9TRUE,  GEOREF 

ACROPOLIS  Table(s):  CMDPLAN,  FINANCE,  FINANCE_QTR,  G17Natl,  G19Natl, 

VALIDJJIC 

Query:  Area-FACID  List(MapInfo) 

SELECT    FACJD  INTO  TempFACID 

FROM       GEOREF 

WHERE    Object  Within  ObjAreaBuffer 

ORDER  BY  FACJD 

(Note:  ObjAreaBuffer  is  equal  to  300  miles) 

VALIDJJIC 

SELECT    UIC,  FACJD,  UnitName,  City,  State,  Zip 
FROM       G17Natl 

WHERE    G17Natl.UIC  =  ANY  (SELECT  CMDPLAN.UIC 

FROM  CMDPLAN) 

Area-UIC  List 

SELECT    DISTINCT  UIC  INTO  AREAJJIC 
FROM       VALIDJJIC 

WHERE    VALID  JJIC.FACJD  =  ANY  (SELECT  AREAJFACID.FAC  JD 

FROM  AREA J^ ACID) 
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FINANCE_CY 

SELECT    UIC,  COUNT(UIC)  AS  UICJTOTAL  INTO  FINANCE_CY 

FROM       FINANCEQTR 

WHERE    (Select  Case) 

Case  lstQtrFY 

(UTA1Q1PF  +  UTA2Q1PF  +  UTA3Q1PF  +  UTA4Q1PF)  >  20 

Case  2nd  Qtr  FY 

(UTA2Q1PF  +  UTA3Q1PF  +  UTA4Q1PF  +  UTA1QCFY)  >  20 

Case  3rd  Qtr  FY 

(UTA3Q1PF  +  UTA4Q1PF  +  UTA1QCFY  +  UTA2QCFY)  >  20 

Case  4th  Qtr  FY 

(UTA4Q1PF  +  UTA1QCFY  +  UTA2QCFY  +  UTA3QCFY)  >  20 
GROUP  BY     UIC 
ORDER  BY     UIC 

DRILL-SAT 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_SAT 
FROM       FINANCE_CY 

WHERE    FINANCE_CY.UIC  -  ANY  (SELECT  AREAJJIC.UIC 

FROM  AREAJJIC) 

DRILL-TOTAL 

SELECT    SUM(UIC_TOTAL)  AS  DRILL_TOTAL 
FROM       FINANCE_ 

WHERE     FINANCE_.UIC  =  ANY  (SELECT  AREAJJIC.UIC 

FROM  AREAJJIC.UIC) 

Yield  Curve:  The  utility  of  the  average  drill  attendance  rate  increases  linearly  between  the 
values  of  0  and  0.6.  Above  that  point,  increases  in  the  attendance  rate  result  in 
diminishing  returns.  Values  above  0.6  become  increasingly  uncommon. 


Utility 


0  1 

Satisfactory  Attendance  /  Total  Reservists 


Max  Utility:     1.0 


Min  Utility:     0.0 
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Decision  Parameter  8.  Area  Loss  Rate 

Definition:  This  Decision  Parameter  indicates  the  fraction  of  reservists  who  left  the  reserves 
in  the  previous  fiscal  year,  for  all  existing  units  in  the  area  of  the  proposed 
relocation  site.  Areas  with  a  low  loss  rate  are  preferred  relocation  sites  because 
units  relocated  to  that  area  will  also  experience  low  loss  rates. 

Calculation:  The  number  of  losses  to  units  in  the  area  in  the  previous  fiscal  year  is  divided  by 
the  number  of  reservists  currently  assigned  to  these  units.  Losses  are  identified 
through  the  transfer  mnemonic  field  (TRMN="LOSS")  of  the  FyxxLOSS  file. 
The  number  of  assigned  reservists  is  determined  by  counting  all  of  the  personnel 
records  in  the  Gl  8CWE  file  associated  with  each  UIC  in  the  area. 

NOLOSS  [Total  Number  of  Losses  in  the  last  year] 


NO_ASSN[Total  Number  Reservists  Assigned] 

Units:  Ratio 

Source  File:     COMMAND  PLAN,  FYxxLOSS,  G17,  G18CWE,  GEOREF 

ACROPOLIS  Table(s):  CMDPLAN,  FYxxLOSS,  G17Natl,  G18Natl_UIC,  VALIDJJIC 

Query:  Area-FACID  List(MapInfo) 

SELECT    FACJD  INTO  TempFACID 

FROM       GEOREF 

WHERE     Object  Within  ObjAreaBuffer 

ORDER  BY  FACJD 

(Note:  ObjAreaBuffer  is  equal  to  300  miles) 

VALIDJJIC 

SELECT    UIC,  FACJD,  UnitName,  City,  State,  Zip 
FROM       G17Natl 

WHERE     Gl 7Natl.UIC  =  ANY  (SELECT  CMDPLAN.UIC 

FROM  CMDPLAN) 

Area-UIC  List 

SELECT    DISTINCT  UIC  INTO  AREA  JJIC 
FROM        VALIDJJIC 

WHERE    VALID  JJIC. FACJD  =  ANY  (SELECT  AREA  JACID.FACJD 

FROM  AREA  J7  ACID) 

NO_ASSN 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_ASSN 

FROM       G18Natl_UIC 
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WHERE    Gl  8Natl_UIC.UIC  =  ANY  (SELECT  AREAJJIC.UIC 

FROM  AREAUIC) 

NO_LOSS 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_LOSS 
FROM       FYxxLOSS 

WHERE     FYxxLOSS.UIC  =  ANY  (SELECT  AREAJJIC.UIC 

FROM  AREAJJIC) 

Yield  Curve:  This  function  includes  both  concave  and  convex  regions.  The  inflection  point 
occurs  at  a  loss  rate  of  .33  and  a  utility  of  0.5.  Based  on  experience,  a  loss  rate  of 
one  third  per  year  was  considered  to  be  typical.  Any  loss  rate  below  this  value 
has  relatively  high  utility,  whereas  loss  rates  above  the  inflection  point  quickly 
approach  a  utility  of  zero. 


Utility 


Losses  /  Total  Number  of  Reservists 


Max  Utility:    0 


Min  Utility:     1 
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Decision  Parameter  9.  Area  Transfer  Rate 

Definition:  This  Decision  Parameter  indicates  the  fraction  of  reservists  who  transferred  to 
different  units  in  the  previous  fiscal  year  for  all  existing  units  in  the  area  of  the 
proposed  relocation  site.  Areas  with  a  low  transfer  rate  are  preferred  relocation 
sites  because  units  relocated  to  that  area  will  also  experience  low  transfer  rates. 

Calculation:  The  number  of  transfers  in  the  previous  fiscal  year  is  divided  by  the  number  of 
reservists  currently  assigned  to  the  unit.  Transfers  are  identified  through  the 
transfer  mnemonic  field  (TRMN="TRFD")  of  the  FyxxLOSS  file.  The  number  of 
assigned  reservists  is  determined  by  counting  all  of  the  personnel  records  in  the 
G18CWE  file  associated  with  each  UIC. 

NO_XFER[Total  Number  of  Transfers  in  the  last  year] 
NO_ASSN[Total  Number  Reservists  Assigned] 


Units: 


Ratio 


Source  File:     COMMAND  PLAN,  FYxxLOSS,  G17,  G18CWE,  GEOREF 

ACROPOLIS  Table(s):     CMDPLAN,  G17Natl,  G18NatlJJIC,  FYxxXFER,  VALID_UIC 

Query:  Area-FACID  List(MapInfo) 

SELECT    FACJD  INTO  TempFACID 

FROM       GEOREF 

WHERE     Object  Within  ObjAreaBuffer 

ORDER  BY  FACJD 

(Note:  ObjAreaBuffer  is  equal  to  300  miles) 

VALIDJJIC 

SELECT    UIC,  FACJD,  UnitName,  City,  State,  Zip 
FROM       G17Natl 

WHERE    G17Natl.UIC  =  ANY  (SELECT  CMDPLAN.UIC 

FROM  CMDPLAN) 

Area-UIC  List 

SELECT    DISTINCT  UIC  INTO  AREA  JJIC 
FROM        VALIDJJIC 

WHERE    VALID JJIC.FAC JD  =  ANY  (SELECT  AREA_FACID.FACJD 

FROM  AREA  JACID) 
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NO_ASSN 

SELECT    SUM(UICTOTAL)  AS  TOTALASSN 
FROM       G18Natl_UIC 

WHERE     Gl  8Natl_UIC.UIC  =  ANY  (SELECT  AREAUIC.UIC 

FROM  AREA_UIC) 

NO_XFER 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_XFER 
FROM       FYxxXFER 

WHERE    FYxxXFER.UIC  =  ANY  (SELECT  AREAJUIC.UIC 

FROM  AREAJJIC) 

Yield  Curve:  This  function  includes  both  concave  and  convex  regions.  The  inflection  point 
occurs  at  a  loss  rate  of  .33  and  a  utility  of  0.5.  Based  on  experience,  a  transfer  rate 
of  one  third  per  year  was  considered  to  be  typical.  Any  loss  rate  below  this  value 
has  relatively  high  utility  (close  to  1.0),  whereas  loss  rates  above  the  inflection 
point  quickly  approach  a  utility  of  zero. 


Utility 


Number  of  Transfers  /  Total  Number  Assigned 


Max  Utility:    0 


Min  Utility:     1 
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Decision  Parameter  10.  Area  Average  Manning 

Definition:  This  Decision  Parameter  indicates  the  ability  to  fill  the  required  positions.  An 
average  value  is  determined  for  all  existing  units  in  the  area  of  the  proposed 
relocation  site.  Areas  with  high  average  manning  levels  are  preferred  relocation 
sites  because  units  relocated  to  that  area  will  also  experience  high  manning  levels. 

Calculation:  The  number  of  reservists  assigned  to  area  units  (based  upon  the  number  of 
personnel  records  in  G18CWE  file  associated  with  each  UIC)  is  divided  by  the 
number  of  required  positions  (based  upon  the  number  of  positions  in  the 
G19TRUE  file  associated  with  each  UIC).  An  average  is  calculated  for  all  UIC's 
in  the  area  of  the  proposed  site. 

NO_ASSN[Total  Number  Reservists  Assigned] 


NOREQD  [Number  Area  Reservists  Required] 


Units: 


Ratio 


Source  File:     COMMAND  PLAN,  G17,  G18CWE,  G19TRUE,  GEOREF 

ACROPOLIS  Table(s):     CMDPLAN,  G17Natl,  G18Natl_UIC,  G19Natl,  VALIDJJIC 

Query:  Area-FACID  List(MapInfo) 

SELECT    FACJD  INTO  TempFACID 

FROM       GEOREF 

WHERE     Object  Within  ObjAreaBuffer 

ORDER  BY  FACJD 

(Note:  ObjAreaBuffer  is  equal  to  300  miles) 

VALIDJJIC 

SELECT    UIC,  FACJD,  UnitName,  City,  State,  Zip 
FROM       G17Natl 

WHERE     G17Natl.UIC  =  ANY  (SELECT  CMDPLAN.UIC 

FROM  CMDPLAN) 

Area-UIC  List 

SELECT    DISTINCT  UIC  INTO  AREAJJIC 
FROM       VALIDJJIC 

WHERE    VALID JJIC.FACJD  =  ANY  (SELECT  ARE A_F ACID. FACJD 

FROM  AREA_FACID) 
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NO_ASSN 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_ASSN 
FROM       G18Natl_UIC 

WHERE     G 1 8Natl_UIC.UIC  =  ANY  (SELECT  AREA_UIC.UIC 

FROM  AREAJJIC) 

NO_REQD 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_REQD 
FROM       G19Natl 

WHERE     G19Natl.UIC  =  ANY  (SELECT  AREA_UIC.UIC 

FROM  AREAJJIC) 

Yield  Curve:  It  is  desirable  that  area  units  be  able  to  exceed  their  minimum  manning 
requirements.  All  manning  levels  above  125%  are  considered  to  have  maximum 
utility.  Manning  levels  below  this  value  drop  off  quickly  in  terms  of  utility. 


Utility 


0  2 

Assigned  reservists  /  Required  reservists 


Max  Utility:     1.25 


Min  Utility:     0 
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Decision  Parameter  11.  Distance  to  Nearest  Recruit  Station 

Definition:  Distance  to  the  nearest  Recruiting  Station  provides  one  indication  of  recruiter 
effectiveness. 

Calculation:  The  straight-line  distance  from  the  proposed  site  to  the  closest  recruiting  station  is 
calculated  using  a  geocoded  version  of  the  RZA  file. 

DISTRZ  A  [Determine  distance  to  nearest  Recruit  Station] 

Units:  Miles 

Source  Data:  RZA 

ACROPOLIS  Table(s):    NONE 

Query:  DIST_RZA(MapInfo) 

SELECT    * 
FROM       RZA 

WHERE    Obj  Withing  ObjDistanceBuffer  into  TempRZA 
(Note:  ObjDistanceBuffer  is  equal  to  300  miles) 

SELECT    Distance((CentroidX(Obj),  CentroidY(Obj),  FacIDLat,  FacIDLong,  "mi") 

FROM       TempRZA 

ORDER  BY  Distance  INTO  TempRZA.Dist 

Yield  Curve:  The  effectiveness  of  a  recruiting  station  in  filling  positions  at  a  reserve  unit  is 
fairly  high  if  the  two  are  within  a  half  hour  drive  of  each  other.  It  is  assumed  that 
recruiters  are  most  effective  in  the  area  close  to  their  recruiting  station  and  that 
reserve  recruits  must  be  located  near  the  unit  with  which  they  will  serve.  A 
distance  of  30  miles  is  assigned  an  average  utility  of  0.5.  A  small  change  in 
distance  results  in  less  change  in  desirability  when  the  distance  is  very  small  or 
very  large  than  it  does  when  the  distance  is  around  30  miles. 


Utility 


Miles 


100 


Max  Utility:    0  Min  Utility:     >  100 
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Decision  Parameter  12.  Available  Transfers  from  Closing  Units 

Definition:  This  value  indicates  the  total  number  of  personnel  assigned  to  closing  units  within 
50  miles  of  the  proposed  site. 

Calculation:  A  list  of  Unit  Identification  Codes  (UIC's)  is  created  which  contains  only  those 
units  scheduled  to  close  within  1 8  months.  These  units  are  identified  by  an  entry 
of  5B  in  the  "Tier"  field  of  the  G17  file.  The  number  of  potential  transfers  from 
closing  units  is  calculated  by  summing  the  number  of  records  in  the  G18CWE 
database  for  the  closing  units  which  are  located  in  the  area  of  the  proposed 
relocation  site. 

TOT  ALA  VAIL  [Total  Number  of  Available  Reservists  from  Area  Closing  Units] 

Units:  Ratio 

Source  File:     COMMAND  PLAN,  G17,  G18CWE,  GEOREF,  US_ZIPS(MapInfo) 

ACROPOLIS  Table(s):    CMDPLAN,  G17Natl,  VALIDUIC 

Query:  Area-FACID  List(MapInfo) 

SELECT    FACJD  INTO  TempFACID 

FROM       GEOREF 

WHERE     Obj  Within  objAreaBuffer 

ORDER  BY  FACJD 

(Note:  objAreaBuffer  is  equal  to  300  miles) 

VALIDUIC 

SELECT    UIC,  FACJD,  UnitName,  City,  State,  Zip 
FROM       G17Natl 

WHERE    Gl  7Natl.UIC  -  ANY  (SELECT  CMDPLAN.UIC 

FROM  CMDPLAN) 

Area-UIC  List 

SELECT    DISTINCT  UIC  INTO  AREA  JJIC 
FROM       VALID  JJIC 

WHERE    VALID  JJIC.FAC  JD  -  ANY  (SELECT  AREA  JACID.FAC  JD 

FROM  AREA_FACID) 

AREA_CLOS_UIC 

SELECT    UIC 

FROM       G17Natl 

WHERE    G 1 7Natl.TIER  =  "5B" 

AND  G17Natl.UIC  =  ANY  (SELECT  AREAJJIC.UIC 
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FROM  AREAJJIC) 

AREA_ZIPCODE(MapInfo) 

SELECT    ZIP_CODE 

FROM       US_ZIPS 

WHERE     Obj  Within  objAreaBuffer 

ORDER  BY    ZIPCODE 

Area_G  1 8_ZIP(MapInfo) 

SELECT    DISTINCT  UIC,  ZIPCODE,  COUNT(UIC)  AS  UIC_TOTAL 

FROM       G18CWE 

GROUP  BY     UIC,  ZIPCODE 

ORDER  BY     UIC,  ZIPCODE 

TOTAL_AVAIL 

SELECT    SUM(UIC_TOTAL)  AS  TOTALAVAIL 
FROM       Area_G18_ZIP 

WHERE    AreaGl  8_ZIP.UIC  =  ANY  (SELECT  AREA_CLOS_UIC.UIC 

FROM  AREA_CLOS_UIC) 
AND  Area_G18_ZIP.ZIPCODE  =  ANY  (SELECT  AREA_ZIPCODE.ZIP 

FROM  AREA_ZIPCODE) 

Yield  Curve:  The  shape  of  this  function  assumes  diminishing  returns  in  the  number  of  transfers 
available.  Experience  suggests  that  for  an  average  unit  of  100  people, 
approximately  half  have  prior  reserve  experience  and  that  approximately  half  of 
the  people  in  a  closing  unit  will  be  able  to  transfer  their  skills  directly  to  a  new 
unit.  The  value  of  the  first  1 00  reservists  increases  at  a  nearly  linear  rate  because 
they  provide  preferred  fills  for  approximately  50  of  the  positions  of  the  moving 
unit.  A  value  of  100  personnel  is  assigned  a  utility  of  0.9.  The  incremental  value 
added  by  each  additional  person  over  100  continues  to  drop  until  no  marginal  gain 
is  expected  over  500. 


Utility 


People 


250 


Max  Utility:    >  250 


Min  Utility:     0 
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Decision  Parameter  13.  IRR  Available 

Definition:  Individual  Ready  Reserve  (IRR)  Available  is  the  number  of  IRR  members  living 
in  the  area  of  the  proposed  relocation  site.  This  is  a  Decision  Parameter  of  the 
size  of  the  prior  service  market. 

Calculation:  A  geographical  query  returns  the  total  number  of  IRR  members  living  within  a 
specified  distance  of  the  proposed  relocation  site.  This  process  requires  a 
geocoded  version  of  the  IRR  file. 

TOTAL _IRR[Total  Number  of  Available  IRR  from  the  Area] 

Units:  People 

Source  File:     IRR 

Query:  ArealRR(MapInfo) 

SELECT    ZIPC  "ZIP",  LEFT$(PMOS,  3)  "MOS" 

FROM       IRR 

WHERE    Obj  Within  objAreaBuffer 

AND  ZIPC  o  ""  AND  PMOS  o  "" 
ORDER  BY  ZIPC 
(Note:  objAreaBuffer  is  equal  to  300  miles) 

TOTALIRR 

SELECT    COUNT(*)  AS  TOTALIRR 

FROM       AreaIRR 


Yield  Curve:  For  a  typical  unit  of  100  people,  it  is  assumed  that  approximately  40  positions 
could  best  be  filled  by  IRR  members.  The  recruiting  rate  for  the  IRR  is 
approximately  1  percent,  so  an  area  that  offers  4,000  IRR  members  is  assigned  an 
average  utility  of  0.5.  Above  this  point,  there  are  diminishing  returns.  The 
market  begins  to  exceed  the  personnel  demand  of  a  moving  unit  and  limited 
recruiting  efforts  become  marginally  less  effective.  The  utility  of  smaller 
numbers  quickly  drops  off  because  of  the  importance  of  this  source  of  recruits. 


Utility 


10,000 


People 


Max  Utility:    >  10,000 


Min  Utility:     0 
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Decision  Parameter  14.  Recruit  Market 

Definition:       The  Recruit  Market  Decision  Parameter  estimates  the  total  number  of  males  who: 

1 .  live  in  the  area  of  the  proposed  relocation  site 

2.  Would  score  in  the  top  half  on  the  Armed  Forces  Qualification  Test  (AFQT) 

3.  Fall  into  the  desired  age  group  (17-29  years  old) 

Calculation:  This  Decision  Parameter  sums  the  entries  for  all  mental  categories  1  through  3 A, 
and  all  ethnic  groups  for  the  zip  codes  of  interest  in  the  Qualified  Military 
Available  (QMA)  file.  The  version  of  QMA  used  contains  only  the  estimates  for 
males  within  the  age  range  of  17  to  29. 

TOT  ALMARKET  [Total  Non-Prior  Service  Personnel  from  the  Area] 

Units:  People 

Source  File:     QMA,  US_ZIPS(MapInfo) 

ACROPOLIS  Table(s):    NONE 

Query:  QMA(MapInfo) 

SELECT    LEFT$(ZIP,  5)  "ZIPCODE",  MWCAT12,  MWCAT3A,  MBCAT12, 

MBCAT3A,  MHCAT12,  MHCAT3A 
FROM       QMA 

WHERE    Obj  Within  objAreaBuffer 
ORDER  BY  ZIP 
(Note:  objAreaBuffer  is  equal  to  300  miles) 

AREAZIPCODE(MapInfo) 

SELECT    ZIP_CODE 

FROM       US_ZIPS 

WHERE    Obj  Within  objAreaBuffer 

ORDER  BY    ZIP_CODE 

TOTAL_MARKET 

SELECT    SUM(MWCAT12+MWCAT3A+MBCAT12+MBCAT3A+ 

MHCAT12+MHCAT3A)  AS  TOTAL_MARKET 
FROM       QMA 

WHERE     QMA.ZIP  =  ANY  (SELCET  AREA_ZIPCODE.ZIP 

FROM  AREA_ZIPCODE) 
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Yield  Curve:  Approximately  half  of  a  typical  unit  of  100  reservists  is  filled  by  recruits  with  no 
prior  service.  Assuming  a  recruit  rate  of  0.25  percent,  there  must  be  at  least 
20,000  people  in  the  area  of  the  proposed  relocation  site  who  meet  all  of  the 
requirements  stated  above.  This  value  is  assigned  a  typical  utility  of  0.5.  As  the 
number  increases,  there  are  diminishing  returns.  The  market  begins  to  exceed  the 
personnel  demand  of  a  moving  unit  and  limited  recruiting  efforts  become 
marginally  less  effective. 


i  r 


Utility 


People 


250,000 


Max  Utility:    >  250,000 


Min  Utility:     0 
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Decision  Parameter  15.  Reassignments 

Definition:  The  Reassignments  Decision  Parameter  indicates  the  fraction  of  the  reservists 
assigned  to  the  moving  unit  who  currently  live  within  a  specified  distance  (50 
miles)  of  the  proposed  relocation  site 

Calculation:  This  Decision  Parameter  is  calculated  by  first  determining  all  zip  codes  that  lie 
within  a  specified  distance  of  the  proposed  relocation  site  (based  upon  zip  code 
centroid)  and  then  identifying  all  reservists  who  both  live  within  one  of  the 
identified  zip  codes  (based  upon  the  "ZIP"  field  of  the  G18CWE  file)  and  are 
assigned  to  the  moving  unit  (based  upon  the  "UIC"  field  of  the  G18CWE  file). 
Then  the  number  available  reassignments  is  divided  by  the  total  number  of 
reservists  assigned  to  the  moving  unit. 

TOTAL  RESERVISTS  [Total  Number  of  Available  Reservists  from  the  Moving  Unit] 
UIC_TOTAL [Total  Number  of  Reservists  Assigned  Moving  Unit] 

Units:  Ratio 

Source  File:     Gl  8C WE,  US_ZIPS(MapInfo) 

ACROPOLIS  Table(s):  G18Natl 

Query:  AREA_ZIPCODE(MapInfo) 

SELECT    ZIP_CODE 
FROM       US_ZIPS 
WHERE     Obj  Within  objAreaBuffer 
ORDER  BY    ZIP_CODE     ' 

G18(MapInfo) 

SELECT    UIC,  LEFT$(ZIP,5)  "ZIPCODE",  PRI  "MOS" 

FROM       G18CWE 

WHERE    Obj  Within  objGl  8Buffer  AND  PRI  o  "" 

ORDER  BY     UIC,  ZIP 

INTO         G18 

Area_G18_ZIP 

SELECT    DISTINCT  UIC,  ZIPCODE,  COUNT(UIC)  AS  UIC_TOTAL 

FROM       G18 

GROUP  BY    UIC,  ZIPCODE 

ORDER  BY    UIC,  ZIPCODE 
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TOTAL_RESERVISTS 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_RESERVISTS 

FROM       Area_G18_ZIP 

WHERE     AreaG  1 8ZIP.UIC  =  MovingUnit.UIC 

AND  Area_G18_ZIP.ZIPCODE  =  ANY  (SELECT  AREA_ZIPCODE.ZIP 

FROM  AREA_ZIPCODE) 


UIC_TOTAL 
SELECT    UIC_TOTAL 
FROM       G18Natl 
WHERE     G18Natl.UIC 


MovingUnit.UIC 


Yield  Curve:  The  current  location  will  always  receive  a  utility  score  of  0.0  on  this  Decision 
Parameter.  For  relatively  close  relocation  sites,  this  function  was  made  to  be 
convex,  assigning  high  utility  values  to  alternatives  that  are  close  to  the  current 
location. 


Utility 


Potential  reassignments  / 

Total  number  of  reservists 


Max  Utility:     1.0 


Min  Utility:     0.0 
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Decision  Parameter  16.  Distance  to  Area  Maintenance  Support  Activity 

Definition:       Distance  to  the  nearest  Area  Maintenance  Support  Activity  (AMSA)  is  calculated 
as  a  proxy  Decision  Parameter  for  response  time  and  support  quality. 

Calculation:    The   straight-line  distance   from  the  proposed   site  to   the   closest  AMSA   is 
calculated  using  a  geocoded  version  of  the  AMSA  file. 

DIST_AMSA[Determine  distance  to  nearest  AMSA  Site] 


Units: 


Miles 


Source  Data:  AMSA 

ACROPOLIS  Table(s):  NONE 

Query:  DIST_AMSA(MapInfo) 

SELECT    * 
FROM       AMSA 

WHERE     Obj  Withing  ObjDistanceBuffer  into  TempRZA 
(Note:  ObjDistanceBuffer  is  equal  to  300  miles) 

SELECT    Distance((CentroidX(Obj),  CentroidY(Obj),  FacIDLat,  FacIDLong,  "mi") 

FROM        TempAMSA 

ORDER  BY  Distance  INTO  TempAMSA.Dist 

Yield  Curve:  The  desirability  of  a  relocation  site  is  relatively  insensitive  to  small  changes  in 
distance  for  both  close  and  distant  AMSA  sites.  Little  degradation  in  service  is 
expected  if  the  AMSA  can  have  parts  and  technicians  on  site  within  a  couple 
hours  using  a  car  or  truck.  It  is  possible  that  a  trainer  that  breaks  down  in  the 
morning  may  be  operational  for  an  afternoon  training  session.  At  approximately 
200  miles  (assigned  a  0.5  utility)  it  starts  to  become  impractical  to  expect  same 
day  service  and  avoid  an  overnight  stay.  Eventually  it  becomes  necessary  to 
consider  flying  rather  than  driving  which  is  likely  to  further  reduce  the 
responsiveness  and  effectiveness  of  the  AMSA. 


Utility 


Max  Utility:    0  Min  Utility:     >  500 
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Decision  Parameter  17.  Distance  to  Nearest  Equipment  Concentration  Site 

Definition:       Distance    to    the    nearest    Equipment    Concentration    Site    (ECS)    provides    an 
indication  of  the  training  time  that  must  be  used  to  travel  back  and  forth. 

Calculation:    The  straight-line  distance  from  the  proposed  site  to  the  closest  ECS  is  calculated 
using  a  geocoded  version  of  the  ECS  file. 

DISTECS  [Determine  distance  to  nearest  ECS] 


Units: 


Miles 


Source  Data:  ECS 

ACROPOLIS  Table(s):    NONE 

Query:  DIST_ECS(MapInfo) 

SELECT    * 
FROM       ECS 

WHERE     Obj  Withing  ObjDistanceBuffer  into  TempECS 
(Note:  ObjDistanceBuffer  is  equal  to  300  miles) 

SELECT    Distance((CentroidX(Obj),  CentroidY(Obj),  FacIDLat,  FacIDLong,  "mi") 

FROM       TempECS 

ORDER  BY  Distance  INTO  TempECS. Dist 


Yield  Curve:  The  desirability  of  an  Equipment  Concentration  Site  is  relatively  insensitive  to 
small  changes  in  distance  for  both  close  and  distant  sites.  Typically,  a  site  that 
can  be  reached  within  an  hour  and  ten  minutes  is  not  significantly  less  desirable 
than  one  that  can  be  reached  in  ten  minutes.  An  hour  of  one-way  travel  time  is 
not  normally  considered  to  be  excessive  and  allows  for  most  of  the  time  to  be 
spent  training  on  a  one  day  training  exercise.  At  approximately  60  miles 
(assigned  a  0.5  utility)  it  starts  to  become  impractical  to  expect  useful  training  to 
be  conducted  on  a  day  trip  and  avoid  an  overnight  stay.  Eventually  it  becomes 
necessary  to  consider  flying  rather  than  driving  which  is  likely  to  further  reduce 
the  desirability  of  the  ECS. 


I    mm 


Max  Utility:    0 


Min  Utility:     >  200 
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Decision  Parameter  18.  Facility  Weekends  Used 

Definition:  Facility  Weekend  Usage  provides  the  number  of  weekends  per  month  that  the 
facility  is  currently  in  use.  This  Decision  Parameter  treats  a  facility  as  a  limited 
resource  that  is  incrementally  depleted  as  more  units  are  assigned.  Since  most 
units  require  exclusive  use  of  the  facility  one  weekend  every  month,  the  number 
of  weekends  used  normally  corresponds  to  the  number  of  units  assigned  and  is 
typically  limited  to  four. 

Calculation:    This  value  is  extracted  from  the  "RSWKNDPM"  field  of  the  COMPLEX  file. 

WKNDJJSED  [Retrieve  Number  Weekends  Facility  Used  per  Month] 

Units:  Weekends  per  month 

Source  Data:  COMPLEX 

ACROPOLIS  Table(s):     COMPLEX_ 

Query:  WKNDJJSED 

SELECT    COMPLEX_.FAC_WKND_USED 

FROM       COMPLEX_ 

WHERE     COMPLEX_.FAC_ID  =  ProposedFacility.FACJD 

Yield  Curve:  Although  some  exceptions  exist,  a  typical  facility  offers  no  utility  to  a  relocating 
unit  if  all  four  weekends  are  already  being  used.  Although  most  facilities  with 
three  units  or  less  should  be  able  to  accommodate  a  new  unit  and  might  be  viewed 
as  having  equal  utility,  other  issues  such  as  full  time  administrative  space  and 
available  equipment  storage  space  make  a  facility  with  fewer  units  currently 
assigned  slightly  more  desirable. 


Utility 


Weekends  /  Month 


Max  Utility:    0 


Min  Utility:     4 
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Decision  Parameter  19.  Available  MOS  from  Closing  Units 

Definition:  This  Decision  Parameter  provides  the  number  of  reservists  from  closing  units  in 
the  area  of  the  proposed  relocation  site  who  possess  a  Military  Occupational 
Specialty  (MOS)  needed  by  the  relocating  unit.  These  people  provide  a  preferred 
pool  of  trained  and  qualified  recruits. 

Calculation:  The  number  of  personnel  records  (from  the  G18CWE  file)  that  meet  all  the 
following  requirements  are  counted: 

1.  The  reservist  is  assigned  to  a  unit  that  is  scheduled  to  close  (a 
TIER="5B"  entry  in  the  G17  file  is  used  to  produce  a  list  of  closing 
units). 

2.  The  reservist  lives  in  a  zip  code  in  the  area  of  the  proposed  relocation 
site. 

3.  The  reservist's  primary  MOS  is  needed  by  the  moving  unit. 

If  the  three  MOS  groups  with  the  largest  number  of  members  in  the  moving  unit 
account  for  more  than  50  percent  of  the  total  unit  membership,  then  only  those 
three  MOS's  are  considered.  Otherwise  all  MOS's  required  by  the  moving  unit 
are  considered  as  an  MOS  of  interest. 

TOTALCLOSMOS  [Total  Number  of  Available  Reservists  from  Area  Closing  Units  with 

MOS's  of  Interest] 

Units:  Number  of  people 

Source  File:     COMMAND  PLAND,  G17,  G18CWE,  GEOREF,  US_ZIPS(MapInfo) 

ACROPOLIS  Table(s):     CMDPLAN,  G17Natl,  G18Natl,  VALIDJJIC 

Query:  Area-FACID  List(MapInfo) 

SELECT    FACJD  INTO  TempFACID 

FROM       GEOREF 

WHERE     Obj  Within  objAreaBuffer 

ORDER  BY  FACJD 

(Note:  objAreaBuffer  is  equal  to  300  miles) 

VALIDJJIC 

SELECT    UIC,  FACJD,  UnitName,  City,  State,  Zip 
FROM       G17Natl 

WHERE     G 1 7Natl.UIC  =  ANY  (SELECT  CMD_PL AN.UIC 

FROM  CMD  PLAN) 
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Area-UIC  List 

SELECT    DISTINCT  UIC  INTO  AREAJJIC 
FROM       VALID  JJIC 

WHERE    VALID  JJIC.FACJD  =  ANY  (SELECT  AREA_FACID.FAC_ID 

FROM  AREA_FACID) 

NoAssnxMOS 

SELECT    MOS,  COUNT(*)  AS  MOS_COUNT  INTO  NoAssnxMOS 

FROM       G18Natl 

WHERE    G 1 8Natl.UIC  =  MovingUnit.UIC 

GROUP  BY  MOS 

ORDER  BY  COUNT(*)DESC 

MOS_TOTAL 

SELECT    SUM(MOS_COUNT)  AS  MOSJTOTAL 

FROM       NoAssnxMOS 

MOS_TOP3 

SELECT    TOP  3  MOS_COUNT 

FROM       NoAssnxMOS 

MOSJNTEREST 

IF  MOS_TOP3/MOS_TOTAL  <  50% 

SELECT     MOS  INTO  MOSJNTEREST 

FROM         NoAssnxMOS 

ORDER  BY  MOS 
IF  MOS_TOP3/MOS_TOTAL  >  50% 

SELECT     TOP  3  MOS  INTO  MOSJNTEREST 

FROM         NoAssnxMOS 

ORDER  BY  MOS 

AREA_CLOSJJIC 

SELECT    UIC 

FROM       G17Natl 

WHERE     G 1 7Natl.TIER  =  "5B" 

AND  G17Natl.UIC  -  ANY  (SELECT  AREAJJIC.UIC 

FROM  AREAJJIC) 

AREA_ZIPCODE(MapInfo) 
SELECT    ZIP_CODE  AS  ZIP 
FROM       US_ZIPS 
WHERE    Obj  Within  objAreaBuffer 
ORDER  BY    ZIP  CODE 
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G18(MapInfo) 

SELECT    UIC,  LEFT$(ZIP,5)  "ZIPCODE",  PRI  "MOS" 

FROM       G18CWE 

WHERE     Obj  Within  obj  G 1 8Buffer  AND  PRI  o  "" 

ORDER  BY    UIC,  ZIP 

INTO         G18 

Area_G18_M0S 

SELECT    DISTINCT  UIC,  ZipCode,  MOS,  COUNT(UIC)  AS  UIC_TOTAL 

INTO         Area_G18_M0S 

FROM       G18 

GROUP  BY  UIC,  ZipCode,  MOS 

ORDER  BY  UIC,  ZipCode,  MOS 

Area_G18_ZIP 

SELECT    DISTINCT  UIC,  ZIPCODE,  COUNT(UIC)  AS  UIC_TOTAL 

FROM       G18 

GROUP  BY    UIC,  ZIPCODE 

ORDER  BY    UIC,  ZIPCODE 

TOTAL_CLOS_MOS 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_CLOS_MOS 
FROM       Area_G18_MOS 

WHERE    Area  Gl  8_MOS.MOS  =  ANY  (SELECT  MOSJNTEREST.MOS 

FROM  MOSJNTEREST) 
AND  Area_G18_ZIP.UIC  =  ANY  (SELECT  AREA_CLOS_UIC.UIC 

FROM  AREA_CLOS_UIC) 
AND  Area_G18_ZIP.ZIPCODE  =  ANY  (SELECT  AREA_ZIPCODE.ZIP 

FROM  AREA_ZIPCODE) 


Yield  Curve:  The  shape  of  this  function  assumes  diminishing  returns  on  the  number  of  transfers 
available.  Experience  suggests  for  an  average  unit  of  100  people,  that  it  is 
unusual  to  expect  more  than  a  third  of  the  members  to  transfer  from  closing  units 
with  the  proper  MOS.  Of  the  reservists  in  this  category,  only  half  typically 
transfer,  so  a  value  of  60  personnel  is  assigned  a  utility  of  0.9.  The  incremental 
value  added  by  each  additional  person  over  60  continues  to  drop  until  no  marginal 
gain  is  expected  over  250. 


Utility 


People 


Max  Utility:    >  250  Min  Utility:     0 
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Decision  Parameter  20.  Available  MOS  IRR 

Definition:  This  Decision  Parameter  provides  the  number  of  Individual  Ready  Reserve 
members  who  live  in  the  area  of  the  proposed  relocation  site  and  who  possess  a 
Military  Occupational  Specialty  (MOS)  needed  by  the  relocating  unit.  These 
people  provide  a  preferred  pool  of  trained  recruits. 

Calculation:  The  number  of  IRR  members  who  possess  an  MOS  needed  by  the  moving  unit 
and  who  live  in  the  area  of  the  proposed  relocation  site  (based  upon  the  zip  code 
of  their  home  of  record  in  the  IRR  file)  are  counted.  If  the  three  MOS  groups  with 
the  largest  number  of  members  in  the  moving  unit  account  for  more  than  50 
percent  of  the  total  unit  membership,  then  only  those  three  MOSs  are  considered. 
Otherwise  all  MOSs  required  by  the  moving  unit  are  considered  as  an  MOS  of 
interest. 

TOT  ALIRRMOS  [Total  Number  of  Available  Reservists  from  the  IRR  with  MOS's  of 

Interest] 

Units:  Number  of  People 

Source  File:     IRR,  Gl 8C WE 

ACROPOLIS  Table(s):     G18Natl, 

Query:  NoAssnxMOS 

SELECT    MOS,  COUNT(*)  AS  MOS_COUNT  INTO  NoAssnxMOS 

FROM       G18Natl 

WHERE     Gl  8Natl.UIC  =  MovingUnit.UIC 

GROUP  BY  MOS 

ORDER  BY  COUNT(*)DESC 

MOS_TOTAL 

SELECT    SUM(MOS_COUNT)  AS  MOS_TOTAL 

FROM       NoAssnxMOS 

MOS_TOP3 

SELECT    TOP  3  MOSCOUNT 

FROM       NoAssnxMOS 

MOSJNTEREST 

IF  MOS_TOP3/MOS_TOTAL  <  50% 

SELECT      MOS  INTO  MOSJNTEREST 

FROM         NoAssnxMOS 

ORDER  BY  MOS 
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IF  M0S_T0P3/M0S_T0TAL  >  50% 

SELECT     TOP  3  MOS  INTO  MOSJNTEREST 
FROM         NoAssnxMOS 
ORDER  BY  MOS 

IRR(MapInfo) 

SELECT    ZIPC  "ZIP",  LEFT$(PMOS,  3)  "MOS" 

FROM       IRR 

WHERE     Obj  Within  objAreaBuffer  and  ZIPC  o  ""  AND  PMOS  o  "" 

ORDER  BY    ZIPC 

INTO         IRR 

TOTAL_IRR_MOS 

SELECT    SUM(UIC_TOTAL)  AS  TOTAL_CLOS_MOS 
FROM       IRR 

WHERE    IRR.MOS  =  ANY  (SELECT  MOSJNTEREST.MOS 

FROM  MOSJNTEREST) 

Yield  Curve:  IRR  members  represent  preferred  recruits  for  less  than  half  of  the  positions  of  a 
typical  moving  unit  (approximately  40  out  of  100)  because  of  issues  such  as 
seniority  and  changes  in  the  skills  associated  with  an  MOS.  The  success  rate  of 
recruiting  IRR  members  is  approximately  1  out  of  100,  so  4000  IRR  members  in 
the  area  of  the  relocation  site  are  required  to  provide  sufficient  market  to  fill  the 
40  positions.  The  value  of  4000  is  assigned  the  average  utility  value  of  0.5.  As 
the  IRR  market  increases  it  exceeds  the  needs  of  the  moving  unit  and  makes  the 
limited  recruiting  efforts  marginally  less  effective. 


Utility 


People 


25,000 


Max  Utility:    >  25,000 


Min  Utility:     0 
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APPENDIX  C.      CONCEPTUALIZATION  PHASE  ARTIFACTS. 

This  appendix  contains  the  artifacts  that  were  documented  upon  completion  of  the 
Concept-to-Code  (C2C)  Conceptualization  Phase. 

Index 

1.  Conceptual  Overview  Diagram 171 

2.  ARIES  Data  Flow  Diagram 173 

3.  User  Inteface  Interim  Layout 175 

4.  User  Interface  Final  Layout 177 
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Conceptual  Overview  Diagram. 


mm 


Meta-Data 


FacID 


Spatial 
Data 


Haw  Data 


Data  Owners 


ft 

DataDepol 
Architect 


miFmmmmi 


What-H 
Analysis 


iKmwim 


Data  Migration 
Warehouse 


USARC 
Decision-maker 


DSS 


Macro 
Scripts 


< 


A  A  A  A  A 

A  A  A  A  A 
A  A  A  A  A 

Ai  AAA 

Decision 
Matrix 


171 


THIS  PAGE  LEFT  INTENTIONALLY  BLANK 


172 


ARIES  Process  Flow  Diagram. 
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User  Interface  Interim  Layout. 
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User  Interface  Final  Layout. 
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APPENDIX  D.      ARIES  SDSS  CODE  LISTINGS. 

This  appendix  contains  the  detailed   code  listings  of  each  Visual  and  Map  Basic  module 
that  comprises  the  ARIES  SDSS  prototype  application. 

Index 

Module  1.  SUBMAIN  PROCEDURE 181 

Module  2.  SDSS  USER  INTERFACE 183 

Module  3.  ARIES  PUBLIC  DECLARATIONS 213 

Module  4.  ARIES  PROCEDURES  LIBRARY 221 

Module  5.  OLE  PROCEDURES  LIBRARY 231 

Module  6.  OLE  OBJECT  CLASS  DEFINITION 239 

Module  7.  MAPBASIC  PUBLIC  DECLARATIONS 243 

Module  8.  SPATIAL  SELECTION  PROGRAM 257 
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Module  1.  SUBMAIN  PROCEDURE 


Purpose:  Submain  Procedure  immediately  executes  upon  ARIES  application  loading  in 

memory.  It  is  a  standard  Visual  Basic  initialization  procedure.  For  the  purposes 
of  the  ARIES  SDSS,  the  procedure  loads  the  splash  screen  for  30  seconds, 
initializes  all  OLE  connections  with  Maplnfo  components  and  displays  the  main 
SDSS  User  Interface  form. 


Source  Type:  Visual  Basic  for  Applications 
Source  File:     SUBMAIN.BAS 
Code  Listing: 

Attribute  VB_Name  =  "Subllain" 

Option  Explicit 

'Allocate  nodule  Variables 
Public  bValidUIC  As  Boolean 
Public  bS(3L(2ueryDone  As  Boolean 
Public  bLDUactive  As  Boolean 
Public  bGEOREF  Exists  As  Boolean 


Publ 
Publ 
Publ 


c  btlapflueryActi ve  As  Boolean 
c  bflaplnf oRunning  As  Boolean 
c  bflapBasicRunning  As  Boolean 


Public  iPropFacIDctr  As  Integer 
Public  iProgressIndicator  As  Integer 
Public  iStatusBarPlax  As  Integer 

'UinAPI32  window  handles 
Public  iLDWwinlD  As  Long 
Public    illaplnf olilinID    As    Long 

Public  aFacID(M)  As  String  *  5 

Public  cdueryStartTime  As  String  *  A 
Public  cProcName  As  String 

'Allocates  Aries  Pleasures  Table 
Public  cNovUic  As  f1ovingUnit_Type 

'Allocate  Database  Objects 
Public  dbAcropolis  As  Database 
Public  dbTeliko  As  Database 
Public  dbUorkspc  As  Workspace 

Public  objExcel  As  Object 
Public  objGeoSelect  As  Object 
Public  objGeoduery  As  Object 
Public  objCallback  As  Object 


Publ ic  Sub  Main ( ) 

cProcName    =    nSUB_riAINn 

On    Error    GoTo    EH    Subflain 
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Set  objExcel  =  Nothing 
Set  objGeoSelect  =  Nothing 
Set  objGeofluery  =  Nothing 
Set  objCallback  =  Nothing 

'Initialize  all  Boolean  FLAGS  to  Default  value- 
bValidUIC  =  False 
bLDUactive  =  False 
bSflLdueryDone  =  False 
bGEOREF  Exists  =  True 


'LDU  Activation  Flag 


'HapBasic  Activation  Flag 


bflapflueryActi  ve  =  False 
bllapBasicRunning  =  False 
bflaplnf  oRunning  =  False 

'Initialize  API  hUnd  ID  variables 
iLDWwinID  =  D 
iflaplnf  oUinID  =  D 

'Commence  loading  ARIES  Application 
Load  f rmSplashScrn 

'bLDUactive  =  OpenLDUob ject 
'Call  ImportLDIddata 
'Call  ViewLDUmatrix 

Exit  Sub 

EH_Subl1ain:     'Submain  Error  Handler 

Select  Case  Err. Number 

Case  ERR_0b jectUnloaded 

Call  Displayllessage  (OLEf ailedMSGi  vbExclamationi  vbOKOnlyi 
conOLEcaption ) 
End 

Case  Else    'Trap  all  other  Errors  &    Report 
Call  0utputERR0R_L0G 
Resume  Next 

End  Select 
End  Sub 

Public  Sub  DisplayUserlnterf ace( ) 

cProcName  =  "Display_User_Interf ace" 

With  frmAriesMain 
•Visible  =  True 

•  UindowState    =    vbriaximized 

•  Show 
End    With 

Screen • dousePointer  =  vbDefault 
End  Sub 
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Module  2.  SDSS  USER  INTERFACE 

Purpose:  Contains  all  procedures,  business  rules,  and  logic  for  controlling  the  ARIES  U/I 

Source  Type:  Visual  Basic  for  Applications 
Source  File:     USERINTERFACE.FRM 
Code  Listing: 

Attribute  VB_Name  =  "f rmAriesdain" 
Attribute  VB_Creatable  =  False 
Attribute  VB_Exposed  =  False 

Option  Explicit 

Private  Sub  mnuFOpen_Click ( ) 
Dim  iLDU_hUnd  As  Long 

On  Error  Go  To  EH_FileOpen 

dlgLDUFiler.  Flags  =  cdlOFNPathflustExist  +  cdlOFNFi  leflustExist 
dlgLDUFiler-InitDir  =  App-Path  S  FILE_LDlil_Archi veDir 
dlgLDUFi ler . fi lename  =  vbNullString 
dlgLDUFiler. ShowOpen 

iLDU_hUnd  =  FindUindow  ( Class_LDU  ■.  vbNullString) 
If  iLDU_hUnd  =  0  Then  Call  OpenLDUob ject 

ShowUindow  iLDU_hUnd-i  SU_f1inimum 
ShowUindow  iLDU_hUndi  SU_Normal 

SendKeys  ""/.FN"-.  True 

SendKeys  "XFO"-.  True 

SendKeys  dlgLDUFi  ler  •  fi  lename -i  True 

SendKeys  "{ENTER)-"-.  True 

DoEvents 

SendKeys  "V.vn~" -,    True 

Exit  Sub 

EH_FileOpen: 

If  Not  Err. Number  =  cdlCancel  Then  Call  0utputERR0R_L0G 

End  Sub 

Private  Sub  mnuFSave_Click ( ) 
Dim  iLDU_hUnd  As  Long 

On  Error  GoTo  EH_FileSave 

dlgLDUFiler- Flags  =  cdlOFNPathflustExist 
dlgLDUFiler-InitDir  =  App-Path  &  FILE_LDU_ArchiveDir 
dlgLDUFiler . fi lename  =  vbNullString 
dlgLDUFiler. ShowSave 

iLDU_hUnd  =  FindUindow  (Class_LDU->  vbNullString) 
If  iLDU_hUnd  =  0  Then  Call  OpenLDUob ject 

ShowUindow  iLDU_hUndn  SU_f1inimum 
ShowUindow  iLDU_hUnd->  SU_Normal 
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SendKeys  ""/.FA"-.  True 

SendKeys  dlgLDUFi  ler  •  f  i  lename -■  True 

SendKeys  "-CENTER!"-,  True 

DoEvents 

AppActivate  ARIES_Appl ication 
Exit  Sub 

EH_FileSave: 

If  Not  Err. Number  =  cdlCancel  Then  Call  0utputERR0R_L0G 

End  Sub 

Private  Sub  mnuFCloseLDIil_Cl  ick  ( ) 

If  Verif yLDUob jectConnection (LDUacti veMSG )  Then 

SendKeys  "V.FX"-,  True 

DoEvents 

mnuVImport • Enabled  =  True 

tbararies • Buttons ("import") • Enabled  =  True 
End  If 
End  Sub 

Private  Sub  mnuFCloseMap_Click ( ) 
Dim  iMapInf o_hUnd  As  Long 

itlaplnf  o_hhJnd    =    FindUindow  CClass_NapInf  o  -.    vbNul  IString  ) 
If    iriaplnfoj-ildnd    =    0    Then 

Call    Displaytlessage  ( APIf  ailedllSG-.    vbCriticali    vbOKOnly-i    conAPIcaption) 
Else 

bMapInf oRunning    =    False 

Showlilindow    iflaplnf  o_hblnd-i    Slil_Hinimum 

Showblindow    iflaplnf  o_hblndi    Sb)_Normal 

SendKeys    "*FX"->    True 
End    If 
End    Sub 

Private    Sub    mnuFSetup_Cl ick ( ) 
Dim    iLDIi)_hb)nd    As    Long 

iLDbl_hblnd    =    Findblindow  (Class_LDW->    vbNul  IString  ) 
If    iLDU_hbJnd    =    0    Then    Call    OpenLDyob ject 

Showblindow    iLDU_hli)nd  -.    Sbl_Minimum 
Showblindow    iLDbl_hldnd  ■>    Sb)_Normal 

SendKeys  ""/.FR"-,  True 
End  Sub 

Private  Sub  mnuFExit_Cl ick ( ) 

Call  cmdExitBtn_Click 
End  Sub 

Private  Sub  mnuVHier_Click ( ) 

If  Not  mnuVImport • Enabled  Then 

If  Verif  yLDblobjectConnection(APIfailedllSG)  Then 
SendKeys  ""/.US"-.  True 
SendKeys  "*H-Cdown}G"-i  True 
End  If 
Else 

Call  Displaytlessage  (NoFacilityComparedriSG-i  vblnf  ormation-i  _ 
vbOKOnly-i  conAPIcaption) 
End  If 
End  Sub 


Private  Sub  mnuVtlatrix  ClickO 
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If  Verif yLDUobjectConnection( APIf ailedllSG)  Then 
SendKeys  ""/.VM-"-,  True 
DoEvents 
End  If 
End  Sub 

Private  Sub  mnuVSensiti vity_Cl ick  ( ) 

If  VerifyLDUobjectConnection(APIfailedMSG)  Then 

SendKeys  "*SY"-.  True 
End  If 
End  Sub 

Private  Sub  mnuVStackBar_Cl ick ( ) 

If  Verif yLDUobjectConnection(APIfailedMSG)  Then 

SendKeys  "V.SB"-.  True 

DoEvents 

SendKeys  "-"•>  True 
End  If 

End  Sub 

Private  Sub  mnuVImport_Click ( ) 

If    bS(2L<2ueryDone    Then 

tbararies • Buttons ("import" )- Enabled  =  False 
mnuVImport • Enabled  =  False 
f raLDUcntrl  -Visible  =  False 

bLDUactive  =  OpenLDUob ject 
Call  ImportLDUdata 
Call  ViewLDWmatrix 
Else 

Call  Displaytlessage  ( NoFaci 1 i tyComparedNSG  i  vblnf  ormationi  _ 
vbOKOnly-.  conAPIcaption ) 
End  If 
End  Sub 

Private  Sub  mnuRPrintAl 1_C1 ick ( ) 
Dim  iHsgBxResponse  As  Byte 

iflsgBxResponse  =  DisplayMessage (PrinterReadyNSGi  vbExclamation n 
vbOKn  conAPIcaption) 

If  iMsgBxResponse  =  vbOK  Then 

If  Verif yLDUobjectConnection(LDbJactiveMSG)  Then 
Call  TimeDelay(Time$(  )  -.  E) 
Call  ActivateLDblReports 
AppActivate  ARIES_Appl ication 
End  If 
End  If 
End  Sub 


Private  Sub  txtPropFacID_Change ( ) 

With  txtPropFacID 

If  (.Text  =  "")  Or  (Len(.Text)  <  S)  Then 
•Text  =  -List(D) 

End  If 
End  With 

End  Sub 

Private  Sub  cboUIC_Change ( ) 

With  cboUIC 

If  (-Text  =  "")  Or  (Len(-Text)  <  b)  Then 
•Text  =  -List(D) 
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End  If 
End  Uith 

End  Sub 

Private  Sub  cmdAcceptBtn_Cl ick ( ) 
Dim  iFacIDctr  As  Byte 
Dim  Index  As  Byte 
Dim  i  As  Byte 

Dim  iConf irmResponse  As  Byte 
Dim  cflsg  As  String 

If  bValidUIC  Then 

iFacIDctr  =  CountFacIDs 
For  i  =  D  To  3 

If  txtFacID(i) -Tag  =  "NOT  USED"  Then 
Index  =  i 
Exit  For 
End  If 
Next  i 

If  iFacIDctr  <  M  Then 

txtFacID(Index) -Text  =  txtPropFacID • Text 
Else 

cffsg  =  "Maximum  number  of  Facilities  Selected-"  &  vbCr  S  vbCr  &  _ 
"Do  You  Uish  to  Delete  Facility  -C"  8  txtFacID  (3)  -  Text  8  _ 
"}?  " 
iConf  irmResponse  =  MsgBox  ( cflsg  i  vbfluestion  +  vbYesNon 
conFacilityErrorCaption) 

If  iConf irmResponse  =  vbYes  Then 

txtFacID(3) -Text  =  txtPropFacID • Text 
End  If 
End  If 

Else 

If  Not  cboUIOText  =  "-NONE-"  Then 

txtriovUIOText  =  cboUIC-Text 
Else 

cflsg  =  "Facility  -C"  &  txtPropFacID  &  ">  has  no  Units  Assigned-" 
Call  Displayflessage  ( cflsg  n  vbExclamationn  vbOKOnlyi  conUICcaption) 
End  If 
End  If 
End  Sub 

Private  Sub  cmdAriesBtn_Cl ick ( ) 

Call  CompareFaci  1  ities 

End  Sub 

Private  Sub  cmdClearBtn_Click ( ) 

'Reset  all  controls  and  elements  of  the  User  Interface  to  Defaults 

Call  InitFacil ityElements  'Reset  controls  to  Defaults 

Call  InitMenuBar 

Call  InitToolBar 

Call  Ini tAr iesControls 

Call  InitStatusBar 

Call  InitGIStreeview 

Call  Traf f icLight ( vbRed ) 

If  AriesStatusBar-Panels(S) -Text  =  "Custom  Tool  :  FacID  Info"  Then 

cmdAcceptBtn -Enabled  =  True 
End  If 

bflapBasicRunning  =  False 
bSflLflueryDone  =  False 


txttlovUIC-SetFocus 
Refresh 


'Set  cursor  at  flOVUIC  txtbox 
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End  Sub 

Public  Sub  cmdExitBtn_Click ( ) 
cProcName  =  "Exi tBtn_Cl ickn 

Dim  iConf irmResponse  As  Byte 


TISGBox  Response  Variable 


If  bS(2L(3ueryDone  Then 

'Display  Confirm  CompactDatabase  Messagebox 
iConf  irmResponse  =  llsgBox  ( CompactDatabaseNSGi  _ 

vbfluestion  +  vbYesNo  +  vbAppl  icationllodal  t  conFileCaption) 

'Evaluate  User  Response 

If  iConf irmResponse  =  vbYes  Then  'Compact  Database 

Call  CompactAriesDataBase 
End  If 
End  If 

If  Not  ( ob jGeoSelect  Is  Nothing)  Then 

ob jGeoSelect • SetCal lback  Nothing 
End  If 


Set  objGeoSelect  =  Nothing 

Set  objCallback  =  Nothing 

Set  objGeofluery  =  Nothing 

Set  objExcel  =  Nothing 

Set  dbAcropolis  =  Nothing 

Set  dbTeliko  =  Nothing 

Unload  fie 


'Close  User  Interface 


End  Sub 

Private  Sub  cmdYesBtn_Cl ick ( ) 

Call  mnuVImport_Cl ick 
End  Sub 

Private  Sub  cmdNoBtn_Click ( ) 
Dim  iConf irmResponse  As  Byte 
Dim  cflsg  As  String 

cflsg  =  "Do  You  Wish  to  Discard  Facility  Comparisons?" 

iConf  irmResponse  =  HsgBox  (cflsg  i  vbfluestion  +  vbYesNoi  conSfiLcaption) 

If  iConf irmResponse  =  vbYes  Then 

fraLDUcntrl .Visible  =  False 

Call  Ini tfleasuresGr id (D) 

Call  cmdClearBtn_Click 
End  If 
End  Sub 

Private  Sub  spinFacIDbtn_SpinDoun ( ) 
Dim  iComboBoxllax  As  Integer 

With  txtPropFacID 

iComboBoxHax  =  -ListCount  -  1 
If  Not  ( iPropFacIDctr  =  iComboBoxllax )  Then 
iPropFacIDctr  =  iPropFacIDctr  +  1 
-Text  =  -List(iPropFacIDctr) 
Call  LoadPropFacilityUICBox(.Text) 
Call  DisplayPropFacilityUnitNames 
End  If 
End  Uith 
End  Sub 


Private  Sub  spinFacIDbtn_SpinUp ( ) 

Uith  txtPropFacID 

If  Not  iPropFacIDctr  =  D  Then 
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iPropFacIDctr  =  iPropFacIDctr  -  1 
•Text  =  -List( iPropFacIDctr) 
Call  LoadPropFacilityUICBox(-Text) 
Call  DisplayPropFacilityUnitNames 
End  If 
End  With 
End  Sub 

Private  Sub  tbarAries_ButtonClick (ByVal  Button  As  Button) 
Dim  iLDUhbJnd  As  Long  'API  window  handler 

Dim  iflsgBxResponse  As  Byte     'llessagebox  response  variable 

Select  Case  Button. Key 
Case  "selector" 

ob jGeoS elect- RunHenu Command  I1_T00LS_S  ELECTOR 
AriesStatusBar.Panels(S) -Text  =  "(laplnfo  Tool  :  Selector" 

Case  "grabber" 

ob jGeoSelect-RunrienuCommand  n_T00LS_RE CENTER 
AriesStatusBar . Panels (S) -Text  =  "Maplnfo  Tool  :  Grabber" 

Case  "expand" 

objGeoSelect-RunllenuCommand  N_T00LS_EXPAND 
AriesStatusBar ■ Panels (S)  • Text  =  "llaplnfo  Tool  :  Zoom-In" 

Case  "shrink" 

ob jGeoSelect-RunMenuCommand  n_T00LS_SHRINK 
AriesStatusBar. Panels(S) -Text  =  "llaplnfo  Tool  :  Zoom-Out" 

Case  "infotool" 

ob jGeoSelect  •  Do  "Run  Menu  Command  ID  SD1" 

AriesStatusBar .Panels(S) -Text  =  "Custom  Tool  :  FacID  Info" 

pnlFaci 1 itylnfo -  Enabled  =  True 

cboUIC • Visible  =  True 

cboUIOClear 

txtPropFacID • Visible  =  True 

txtPropFacID- Clear 

cmdAcceptBtn ■ Enabled  =  True 

Case    "mapinfo" 

If    Not    bMapInf oRunning    Then 

idaplnf  olilinID    =    Shel  1  (FILE_riapInf  Oi    vbNormalFocus  ) 

SendKeys  "-"•,  True 

SendKeys  "XFL"  ■,    True 

iMapInf  olilinID    =    Findblindow(  Class_MapInf  Oi    vbNul  IString) 

If    illapInfolilinID    =    D    Then 

Call    DisplayMessage ( APIf ailedMSd    vbCriticali    vbOKOnlyi 
conAPIcaption) 

End    If 

btlaplnf  oRunning  =  True 

mnuFCloseilap  ■  Enabled  =  True 
Else 

ShowUindow  idaplnf oUinlDn  SU_ninimum 

ShowUindow  idaplnf  oklinlDi  SLI_Normal 

SendKeys  "*FX"-,  True 

btlaplnf  oRunning  =  False 

mnuFCloseMap . Enabled  =  False 
End  If 


Case  "Id 

iLDWh 

If  iL 

bL 

Else 

in 

If 


Wnd  =  FindUindow(Class_LDU-.  vbNul  IString ) 
DWhWnd  =  D  Then 
Dldactive  =  OpenLDUob  ject 

sgBxResponse  =  DisplayNessage (LDUresetNSG n  vbduestionn  vbOKn 
conAPIcaption ) 
iMsgBxResponse  =  vbOK  Then 
Call  ResetLDUobject 
AppActivate  ARIES_Appl ication 
tbararies . Buttons ("import") • Enabled  =  True 
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fraLDUcntrl • Visible  =  True 
mnuVImport • Enabled  =  True 
End  If 
End  If 

Case  "import" 

Call  mnuVImport_Cl ick 

Case  "file" 

Case  "report" 

Call  mnuRPrintAll_Click 

Case  "matrix" 

Call  mnuVf1atrix_Cl  ick 

Case  "hierarchy" 

Call  mnuVHier_Click 

Case  "dynamic" 

Call  mnuVSensi tivi ty_Cl ick 

Case  "stacked" 

Call  mnuVStackBar_Click 

Case  "about" 

End  Select 
End  Sub 

Private  Sub  cmdClearBtn_GotFocus ( ) 

'Display  CLEAR  button  hint  on  main  status  bar 
AriesStatusBar ■ Panels (1) • Text  =  ClearButtonNSG 
End  Sub 

Private  Sub  cmdAriesBtn_GotFocus ( ) 

'Display  GENERATE  button  hint  on  main  status  bar 
AriesStatusBar  •  Panels  (1)  -  Text  =  LaunchAriesClSG 
End  Sub 

Private  Sub  cmdExi tBtn_GotFocus ( ) 

'Display  EXIT  Button  hint  on  main  status  bar 
AriesStatusBar • Panels ( 1) . Text  =  ExitButtonMSG 
End  Sub 

Private  Sub  txtHovUIC_GotFocus ( ) 

AriesStatusBar  -  Panels  (1)  •  Text  =  riovUICstatbarflSG 
End  Sub 

Private  Sub  t xtFacID_Got Focus ( Index  As  Integer) 

AriesStatusBar. Panels(l) -Text  =  Faci  lityStatbarflSG  &  CStrdndex  +  1) 

IstbxFacID ( Index )■ Visible  =  True 
End  Sub 

Private  Sub  txtMovllIC_LostFocus  ( ) 

If  (Len(txtriovUIC)  =  D)  And  txtllovUIC .  Tag  =  "VALID"  Then 

Call  Traf f icLight ( vbRed ) 

bValidUIC  =  False 

txtMovUIOTag  =  "NOT  USED" 

IstbxIlovUIC. Clear 
End  If 
End  Sub 

Private  Sub  txtFacID_LostFocus ( Index  As  Integer) 
Dim  iFacIDctr  As  Byte 
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If  (Len(txtFacIDdndex)  )  =  D)  And  txtFacID  ( Index ).  Tag  =  "VALID"  Then 

txtFacIDdndex) -Tag  =  "NOT  USED" 

IstbxFacID (Index) -Clear 

lstbxFacID(Index) -Addltem  "*  *  DELETED  *  *" 
End  If 

iFacIDctr  =  CountFacIDs 

If  iFacIDctr  =  D  And  txtflovUIC  •  Tag  =  "VALID"  Then 

Call  Traf f icLight (vbYel low) 
Elself  txtMovUIOTag  =  "NOT  USED"  Then 

Call  Traf f icLight (vbRed ) 
End  If 
End  Sub 

Private  Sub  txtFacID_Change ( Index  As  Integer) 
Dim  bValidFacID  As  Boolean 
Dim  bValidUnit  As  Boolean 
Dim  cFacID  As  String  *  S 
Dim  cMsgText  As  String 
Dim  rsValidateFacID  As  Recordset 
Dim  rsValidateUnit  As  Recordset 

cUsgText  =  "" 
bValidFacID  =  False 
bValidUnit  =  False 

'Open  Validation  Table 

Set  rsValidateFacID  =  dbAcropolis  •  OpenRecordset  (Tbl_ValidateUIC-.  dbOpenTable-. 

dbReadOnly) 

rsValidateFacID- Index  =  "FACID" 

If  bGEOREF_Exists  Then 

Set  rsValidateUnit  =  dbAcropol  is  •  OpenRecordset  (Tbl_Val  idateUnit-. 
dbOpenTable-.  dbReadOnly) 

rsValidateUnit- Index  =  "FACID" 
End  If 

'Automatically  determine  if  FACID  entered 
If  Len(txtFacIDdndex)  )  =  5  Then 

cFacID  =  txtFacID(Index) -Text 

bValidFacID  =  Val  idateFacID  (  cFacID-.  rsValidateFacID) 

If  bGEOREF_Exists  Then 

bValidUnit  =  Val  idateFacID  ( cFacID-,  rsValidateUnit) 

End  If 

If  bValidFacID  Or  bValidUnit  Then      'Valid  FACID  exists 
If  bValidFacID  Then 

Call  LoadFacilityListBoxdndex-,  rsValidateFacID-.  0) 
Else 

Call  LoadFacil  ityListBox  ( Index  i  rsValidateUnit-.  1) 
End  If 

aFacIDdndex  +  1)  =  cFacID 
txtFacID(Index) -Tag  =  "VALID" 

If  Not  (Index  =  3)  Then       'Prep  next  Facility  Frame 

Call  Initial izeFaci 1 ityFrame (Index  +  1) 

Call  Traf f icLight ( vbGreen) 
Else  'Last  Facility  Frame  used 

cmdAriesBtn-SetFocus 
End  If 

Else  'Facility  ID  invalid 

ctlsgText  =  "FacID:  -C"  8  cFacID  &  FacIDinval  idtlSG 

Call  DisplayMessage  (cUsgText-.  vblnf  ormation  -.  vbOKOnly-. 
conFacilityErrorCaption) 

txtFacID(Index) -Text  =  "" 

txtFacID(Index).Tag  =  "NOT  USED" 
End  If 
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Else 

AriesStatusBar  .  Panels  ( 1  )•  Text  =  FacIDlengthflSG 
End  If 

'Delete  Recordset  Object 

rsValidateFacID. Close 

Set  rsVal idateFacID  =  Nothing 

rsValidateUnit- Close 

Set  rsVal idateUni t  =  Nothing 

End  Sub 

Private    Sub    txtMovUIC_Change () 
cProcName    =    "TXTMOVUIC.CHANGE" 
Dim    cUsgText    As    String 

cflsgText    =    n" 
bValidUIC    =    False 

If    Len(txtllovUIC)    =    b    Then 

cMovUicUIC    =    txtriovUIOText 

bValidUIC    =    Val  idateflovUIC  (  cllovUic  •  UIC) 

If  bValidUIC  Then 

aFacID(D)  =  cHovUic • FacID 
Call  LoadllovUIClistbox(cllovUic) 
Call  Ini tializeFaci li tyFrame ( D ) 
cmdClearBtn -  Enabled  =  True 
txtllovUIOTag  =  "VALID" 

'Set  the  appropiate  data  integrity  light 
If  Not  txtFacID(D) -Tag  =  "VALID"  Then 

Call  Traff icLight ( vbYel low) 
Else 

Call  Traf f icLight ( vbGreen) 
End  If 

Else  'Unit  ID  Code  invalid 

cflsgText    =    "UIC:    {"    &    cflovUic-UIC    8    MovUICinval  idllSG 

Call    Displayflessage (cdsgTextT    vblnf ormationn    vbOKOnlyi    conUICcaption) 

txtriovUIOText    =    "" 

txtllovUIOTag    =    "NOT    USED" 
End    If 

Else 

AriesStatusBar- Panels(l) -Text  =  MovUIClengthMSG 
End  If 

End  Sub 

Private  Sub  txtFacID_KeyPress ( Index  As  Integeri  KeyAscii  As  Integer) 
KeyAscii  =  KeyUpperNumer ic (KeyAscii ) 

End  Sub 

Private  Sub  txth*ovUIC_KeyPress  (KeyAsci  i  As  Integer) 
KeyAscii  =  KeyUpperNumeric (KeyAscii ) 

End  Sub 


Private  Function  CountFacIDs  (  )  As  Byte 

Dim  i  As  Byte  'Loop  Variable 

CountFacIDs  =  D  'Initialize  function 

For  i  =  D  To  3  'Loop  thru  Facility  choices 

'Evaluate  Facility  Frame  TAG  field  for  Confirmed  Selections 

If  (txtFacID(i) -Tag  =  "VALID")  Then 

CountFacIDs  =  CountFacIDs  +  1  'increment  counter 

End  If 
Next  i 
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End  Function 

Private  Sub  Form_Load() 

'Establish  DEFAULT  position  for  User  interface 
Me • Top  =  D 
lie- Left  =  D 

'Initialize  Acropolis  Database 

Set  dbldorkspc  =  DBEngine  •  Workspaces (D) 

Set  dbAcropolis  =  dbUorkspc • OpenDatabase ( App . Path  a  FILE_Acropol is ) 

'Set  dbTeliko  =  dbblorkspc  .  OpenDatabase  (App  .  Path  &  FILE_Teliko) 

Set  dblleasures  =  Workspaces  (0  )•  OpenDatabase  (  App  .  Path  &  DBJ1EASURES) 

Set  rsMeasures  =  dbfleasures • OpenRecordset ("Measure  Values"i  dbOpenTable) 

rsMeasures. Index  =  "FAC_ID" 

'Set  rsProblems  =  dblleasures  •  OpenRecordset  ("Problems"!  dbOpenTable) 

'Initialize  the  USER  INTERFACE  and  Form  Controls 
Call  InitMenuBar 
Call  InitToolBar 
Call  Initflaps 


Call  InitFaci litylnf oPanel 
Call  InitFaci lityElements 
Call  InitGIStreeview 


'Initialize  Default  values 


Call  Traf f icLight ( vbRed) 
Call  InitAriesControls 
Call  InitStatusBar 


He • Show 

lie  •  UindowState 

Refresh 


vbHaximized 


'Display  form  to  User 


Screen  - dousePointer  =  vbDefault 
txtMovUIC-SetFocus 


'reset  mousepointer  to  arrow 
'set  cursor  at  I10VUIC  txtbox 


End  Sub 

Private  Sub  Initial izeFaci 1 ityFrame (ByVal  Index  As  Integer) 
cProcName  =  "INITIALIZE_FACILITY_FRAME" 


If  Not  Index  =  M  Then 

fraFacility(Index) -Enabled 
Uith  txtFacID(Index) 
•Visible  =  True 
•Enabled  =  True 
• SetFocus 
End  With 
End  If 
End  Sub 


True 


Private  Sub  InitMenuBar ( ) 

cProcName  =  "INIT_MENU_BAR" 

mnuvlmport -  Enabled  =  True 
mnuFCloseLDLI  •  Enabled  =  True 

End  Sub 

Private  Sub  InitToolBar ( ) 

cProcName  =  "INIT  T00L_BAR" 


tbararies • Buttons ("import" )• Enabled  =  True 
tbararies -Buttons ("report" )• Enabled  =  True 
tbararies • Buttons ("matrix") -Enabled  =  True 
tbararies • Buttons ("hierarchy") -Enabled  =  True 
tbararies • Buttons ("dynamic" )■ Enabled  =  True 
tbararies  •  Buttons ("stacked" )• Enabled  =  True 
End  Sub 
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Private    Sub    InitllapsO 

cProcName    =    "INIT_nAPS" 

Dim  briapSelectActi ve  As  Boolean 

'Load  llaplnfo  Objects  for  GeoQuery  Display 

bHap(3ueryActi  ve  =  ConnectOLEob  ject  (ob  jGeoduery  i  "Napinf o • Appl ication" ) 

If  bdapdueryActi ve  Then       'Ensure  Application  loaded 

ob jGeofluery . Do  "Set  Application  Window  "  &  pictNapflueryFrame  -hwnd 

ob jGeofluery • Do  "Set  Next  Document  Parent  "  a  pictnaptfueryFrame -hwnd  &  " 

Style  1  " 

End  If 

'Load  llaplnfo  Objects  for  GeoSelect  Display 

bflapSelectActive  =  ConnectOLEob ject (ob jGeoSelect i  "dapinf o • Appl ication") 

If  bflapSelectActive  Then       'Ensure  Application  loaded 

ob jGeoSelect • Do  "Set  Application  Window  "  &  pictMapSelectFrame -hwnd 

ob jGeoSelect • Do  "Set  Next  Document  Parent  "  &  pictMapSelectFrame • hwnd  8 

Style  1  " 

End  If 


'Create  an  Instance  of  the  OLE  Callback  Object 
Set  objCallback  =  New  clsOLECallback 
objGeoSelect-SetCallback  objCallback 

'Load  &  Display  the  naps  with  labels 

Call  OpenUS_StatesLayer 

Call  Openl)SARC_GeoRefLayer 

Call  OpenStateCapitalsLayer 

Call  Openlla jorCi tyLayer 

Call  DisplayflapLabels 

Call  PositionMap 

'Hodify  the  llaplnfo  Right-Click  Henu 
Call  Initializedaplnf oflenu 
Call  Initial  izeflaplnf  oToolbar 
Call  Initial izeMapInf oStatusBar 

'Set  Zoom-In  tool  as  the  Default 
objGeoSelect-RunrienuCommand  I1_T00LS_EXPAND 
AriesStatusBar.Panels(S) -Text  =  "llaplnfo  Tool 
Refresh 
End  Sub 


Zoom-In' 


Private    Sub    Ini tlleasuresGrid  (ByVal    Index    As    Byte) 
cProcName    =    "INIT_nEASURES_GRID" 
Dim    i    As    Integer 

Dim    iGr  idColumnlilidth  (conflaximumColumns  )    As    Integer 
Dim    cGridRowLabel  (conTotairieasures )    As    String 


Load    Column    biidth    array 


iGridColumnWidth(O) 
iGridColumnUidth(l) 
iGridColumnUidth(E) 
iGridColumnUidthO) 
iGridColumnUidth(M) 


conOneColumnldidth 

conTwoColumnWidth 

conThreeColumnlilidth 

conFourColumnUidth 

conFiveColumnlilidth 


'Loa 
cGri 
cGri 
cGri 
cGri 
cGri 
cGri 
cGri 
cGri 
cGr  i 
cGri 
cGri 
cGri 


d  Ro 
dRow 
dRow 
dRow 
dRow 
dRow 
dRow 
dRow 
dRow 
dRow 
dRow 
dRow 
dRow 


w  Lab 
Label 
Label 
Label 
Label 
Label 
Label 
Label 
Label 
Label 
Label 
Label 
Label 


els 
(D) 
(1) 
(B) 
(3) 
(M) 
(S) 
(b) 
(7) 
(fl) 
H) 
(ID 
(11 


)    = 
)    = 


ray 
conll 
conM 
conll 
conM 
conn 
conll 
conll 
conPI 
conH 
conn 
con 
con 


easu 
easu 
easu 
easu 
easu 
easu 
easu 
easu 
easu 
easu 
neas 
rieas 


reO 

rel 

reZ 

re3 

reM 

re5 

reb 

re? 

refl 

reT 

urelD 

urell 
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cGridRowLabel (IE) 

= 

confleasurelE 

cGridRowLabel (13) 

= 

cont1easurel3 

cGridRowLabel (1M) 

= 

confleasurelM 

cGridRowLabel (15) 

= 

conMeasurelS 

cGridRowLabel (lb) 

= 

c  o  n  n  e  a  s  u  r  e  1 t> 

cGridRowLabel (17) 

= 

confleasurel? 

cGridRowLabel (Ifl) 

= 

conneasurelfi 

cGridRowLabel (IT) 

= 

c  o  n  n  g  a  s  u  r  e  1 1 

cGridRowLabel (SO) 

= 

c  o  n  n  e  a  s  u  r  e  2  0 

With    gridfleasures 

'Establish  Grid  default  parameters 
■  Visible  =  True 
. Font .Size  =  6 

'Reset  Grid  if  data  present 
•Cols  =  1 
•Cols  =  E 
•FixedCols  =  1 
•FixedRows  =  1 

'Set  rows  and  columns- 

•Rows  =  El 

•Cols  =  Index  +  E 

'Set  Fixed  Column  Label  size 
•ColUidth(D)  =  1370 

'Set  remaining  columns  width  dependent  on  number  of  Facilities 
For  i  =  1  To  Index  +  1 

-  ColUidth  (  i  )  =  iGridColumnb)idth(Index) 

•  Col Al ignment ( i )  =  1 
Next  i 

'Display  Grid  Row  Labels  in  Column  1 
gridtleasures  •  Col  =  0 
For  i  =  D  To  20 

gridfleasures  •  Row  =  i 

gridfleasures  •  Text  =  cGridRowLabel  (  i  ) 
Next  i 
End  With 
End  Sub 

Private  Sub  InitFaci litylnf oPanel ( ) 

cProcName  =  "INIT_FACILITY_INFO_PANEL" 

iPropFacIDctr  =  0 

pnlFacilitylnf o. Enabled  =  False 
txtPropFacID- Visible  =  False 
cboUIOVisible  =  False 
spinFacIDbtn . Visible  =  False 
Refresh 
End  Sub 

Private  Sub  InitFaci 1 ityElements ( ) 

cProcName  =  "INIT  FACILITY  ELEMENTS" 


Dim  i  As  Byte 

cdovUicUIC  = 
cMovUioFacID 


'Loop  Variable 

•Set  HOVUIC  variable  to  NULL 


tabAriesflap  •  Tab  =  0 
tabAriesUI.Tab  =  0 

frallovUIC.Tag  =  "NOT  USED' 
fradovUIC- Font- Size  =  10 
txttlovUIC-Text  =  "" 
txtMovUIC -Enabled  =  True 


'Display  GeoSelection  Hap 
'Display  Facility  Select  Tab 

'Initialize  Facility  Frame  TAGs 
'Set  Font  Size  to  default 
•Clear  riOVUIC  text  box 
'Allow  user  input 
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lstbxnovUIO Clear 


'Empty  listbox 


For  i  =  D  To  3 

f raFaci 1 ity( i )• Enabled  =  False 
f raFaci 1 ity ( i )• Font • Size  =  T 
txtFacID(i)  -Text  =  "" 
txtFacID(i) -Visible  =  False 
lstbxFacID(i) -Clear 
lstbxFacID(i) -Visible  =  False 
txtFacID(i) -Tag  =  "NOT  USED" 

Next  i 


'Loop  thru  Facility  Frames 
'Disable  Frame 
'Set  Font  Size  to  default 
'Clear  facility  text  box 
'Hide  facility  text  box 
'Empty  facility  list  box 
'Hide  facility  list  box 
'Set  Frame  TAG  to  default 


For  i  =  D  To  M 

f raStatus ( i ) 

f raStatus  (  i  ) 

txtStatus  ( i ) 

txtStatus ( i ) 

txtStatus  ( i  ) 

lstbxStatus(i)  -Clear 

lstbxStatus(i) -Visible 

aFacID(i)  =  "" 
Next  i 


E 

nabled 

= 

False 

F 

ont • Size 

=  ID 

T 

ext  =  "" 

V 

isible 

= 

True 

E 

nabled 

= 

True 

=  False 


'Loop  thru  SQL    status  frames 
'Disable  status  frame 
'Set  frame  font  default 
'Clear  status  text  box 
'Hide  status  text  box 

'Empty  status  listbox 
'Hide  status  list  box 


txtPropFacID- Clear 
cboUIC. Clear 
lstbxUnitName- Clear 
txtCity.Text  =  "" 
txtState.Text  =  "" 
txtZipCode-Text  =  "" 

f raStatus (MeasuresFramelndex )• Enabled  =  True 


barSdLstatus- Value  =  D 
iProgressIndicator  =  D 
barSQLstatus ■ Hin  =  D 
Refresh 
End  Sub 


'Set  progress  bar  to  Zero 

'Set  progress  indicator  default 

'Set  Progress  bar  minimum 


Private  Sub  Ini tGIStreeview ( ) 

cProcName  =  "INIT_GIS_TREEVIEU" 

trvGISData- Nodes -Clear 
trvGISData -  Enabled  =  False 
Refresh 
End  Sub 

Private  Sub  Ini tAriesControls ( ) 

cProcName  =  "INIT  ARIES  CONTROLS" 


cmdAriesBtn -  Enabled  =  False 
cmdClearBtn • Enabled  =  False 
cmdAcceptBtn ■ Visible  =  True 
cmdAcceptBtn • Enabled  =  False 
cmdAcceptBtn -  Enabled  =  True 
cmdAcceptBtn • Font • Size  =  IE 
Refresh 
End  Sub 


'Disable  Measures  Button 
'Disable  CLEAR  button 

'Disable  ACCEPT  Button 


Private  Sub  Ini tStatusBar ( ) 

cProcName  =  "INIT_STATUS_BAR" 

AriesStatusBar-Panels(B) -Text  =  "" 
AriesStatusBar.Panels(3) -Text  =  "" 
Refresh 
End  Sub 

Private  Sub  FormElementsLock (By Val  iFacIndex  As  Byte) 
cProcName  =  "F0Rf1_ELEriENTS_L0CK" 
Dim  i  As  Byte  'Loop  Variable 

'Disable  (2uery  and  Clear  user  entry  buttons 
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Call  Traf f icLight ( vbBlack ) 
cmdClearBtn • Enabled  =  False 
cmdAcceptBtn . Enabled  =  False 

txtflovUIC  •  Enabled  =  False 
lstbxflovUIC.  Enabled  =  False 

'Locks  User  input  until  Query    finished 

For  i  =  D  To  3 

txtFacIDC i ) -Enabled  =  False 
IstbxFacIDd  ) -Enabled  =  False 

Next  i 


Hides  Exposed  Facility  Frame  w/out  User  Input 

If  Not  (iFadndex  =  M)  Then 

txtFacID(  iFadndex) -Visible  =  False 
IstbxFacID  (  iFadndex  ).  Visible  =  False 
fraFacility  (  iFadndex  ).  Enabled  =  False 

End  If 


'Bring  Aries  Pleasures  Computation  Tab  to  the  Front 
tabAriesUI-Tab  =  1 
Refresh 
End  Sub 

Private  Sub  Initial  izeProgressBar  (ByVal  iFadndex  As  Byte) 
cProcName  =  "PROGRESS_BAR  INITIALIZE" 
Dim  iProgressIndicator  As  Integer 

'Initialize  Progress  Bar 

iStatusBartlax  =  ((iFadndex  +  1)  *  conTotalMeasures )  +  _ 

((iFadndex  +  1)  *  conTotallnterimTables )  +  conSingleMessages 

iProgressIndicator  =  0 
Uith  barSCLstatus 

•  Ilin  =  D 

•Value  =  D 

-Hax  =  iStatusBarMax 
End  Uith 
Refresh 
End  Sub 

Private  Sub  DisplayflueryStartTime ( ByVal  cStartTime  As  String) 
cProcName  =  "DISPLAY  QUERY  START  TIME" 


Uith  Ar iesStatusBar 
•Panels(l) -Text  = 
cdueryStartTime  : 
•Panels(E) -Text  = 

End  Uith 

Refresh 
End  Sub 


LaunchNapinfoMSG 

cStartTime 

"Start  "  &  cdueryStartTime 


Private  Sub  DisplayflueryEndTime (ByVal  cflueryEndTime  As  String) 
cProcName  =  "DISPLAY_flUERY_END_TiriE" 

'Display  tfuery  End  Time 
Uith  AriesStatusBar 

•Panels(S) -Text  =  "End  "  8  cdueryEndTime 

Call  ElapsedTimer (cflueryEndTime ) 
End  Uith 
Refresh 
End  Sub 

Private  Sub  CompareFaci 1 ities ( ) 

cProcName  =  "COMPARE  FACILITIES" 


Dim  i  As  Byte 
Dim  j  As  Byte 
Dim  iFacIDctr  As  Byte 
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'Loop  Variable 
'Loop  Variable 


Dim  iConf irmResponse  As  Integer 
Dim  cAriesConf irmNessage  As  String 
Dim  bDupl icateFaci 1 i ty  As  Boolean 
Dim  bSingleFaci 1 i ty  As  Boolean 
Dim  alleasures  (  M  )  As  rieasures_Type 
Dim  rsFacilities  As  Recordset 

Set  rsFacilities  =  dbAcropol  is  •  OpenTable  ("VALID_UNIT" -•  dbOpenTable) 

bDuplicateFaci lity  =  False 

bSingleFacility  =  False 

cAriesConf  irmriessage  =  AriesConf  irmNSG  a  vbCr 

cMovUicUIC  =  "  " 

'Function  determines  the  Total  number  of  Facilities  Proposed 
iFacIDctr  =  100 

Determine  if  Proposed  Facilities  meet  criterium  (B  minimum) 
If  iFacIDctr  =  0  Then 

bSingleFacility  =  True 
Call  Ini tFaci 1 ityElements 
txtMovUIOText  =  cNovUioUIC 
Else  'Check  if  Duplicate  Facility  Selected 

For  i  =  0  To  (iFacIDctr  -  1) 

For  j  =  (i  +  1)  To  iFacIDctr 

If  aFacID(i)  =  aFacID(j)  Then  bDuplicateFaci 1 ity  =  True 
Next  j 
Next  i 
End  If 

Build  Confirmation  message 

For  i  =  0  To  iFacIDctr 

cAriesConf  irmriessage  =  cAriesConf  irmriessage  &  Space(M)  a  aFacID(i)  8  ",' 

Next  i 

cAriesConf  irmtlessage  =  Left<?  (  cAriesConf  irmMessage  n 
(Len  (  cAriesConf  irmllessage  )  -  1)) 

cAriesConf  irmtlessage  =  "This  will  conduct  a  calculation  of  the  Valid 
Facilities  in  the  Valid  Unit  List" 

'If  bDupl icateFaci lity  Then  'Duplicate  facility  exists 

'    Call  Displayllessage  ( Dupl icateFacil ityNSG i  vbCriticali  vbOKOnlyn 
conFacilityErrorCaption) 

'Elself  bSingleFacility  Then         'Single  facility  exists 

'    Call  Displayllessage  (InvalidGISfiuerynSd  vbCriticali  vbOKOnlyT 

conFacilityErrorCaption) 

'End  If 

If  Not  bDuplicateFacility  And  Not  bSingleFacility  Then 
Screen . HousePointer  =  vbHourglass 

iConf irmResponse  =  MsgBox (cAriesConf irmNessage n  vbduestion  +  vbOKCanceli 
"Launch  ARIES  v3-D") 

If  iConf irmResponse  =  vbOK  Then 

Call  FormElementsLock ( iFacIDctr ) 
Call  Display(2ueryStartTime(Time$()) 

Call  Initial izeProgressBar( iFacIDctr) 
'Call  Createn0S_InterestTable(cMovUicUIC) 

With  rsFacilities 
. HoveFirst 

'Loop  thru  all  proposed  facilities 
For  i  =  0  To  iFacIDctr 

alleasures(i)  -FacID    =    •  Fields  ("FAC_ID"  )•  Value  'aFacID(i) 

Call    GetArchi  vedFaci  lity  (atleasures  (  i  )  i    ctlovUic  •  UIC) 

If    Not    afleasures  (  i  )•  Archived    Then 


197 


Call    NonGISduery  (aMeasures  (  i  )  ) 
'  End    If 

Call    GISfluery  (aMeasures  (  i  )  ) 

Call    ResetSQLframes 

Call    ArchiveFacilityMeasures(aMeasures(i) ) 

• MoveNext 
Next    i 
End    With 
Call    CloseGISduery 
Call    DeleteTempAccessTables 
Call    Display(2ueryEndTime(Time$()) 
'  Call    OutputComputedrieasures  (alleasures  ()  ■>    iFacIDctr) 

tbararies • Buttons ("import" ). Enabled    =    True 
cmdClearBtn ■ Enabled    =    True 
bS(2L(2ueryDone    =    True 
End    If 
End    If 

Screen  .  riousePointer    =    vbDefault 
End    Sub 

Private    Sub    GetArchi  vedFacil  ity  (ByRef    alleasures    As    Measures_Type  i    ByVal 
cMovllic    As    String) 

cProcName  =  "Get_Archi ved_Faci 1 ity" 
Dim  rsArchi vedFacil ity  As  Recordset 
Dim    fldefnSQL    As    String 


<2defnS<2L    =    "Select    *    From    Repository    Where    FAC_ID    = 

Order    by    MOVUIC" 

AriesStatusBar  •  Panels  ( 1)  •  Text    =    ArchivedFaci  1  ityflSG 

Refresh 


&  alleasures  ■  FacID  &  "' 


'Open  Facility  Respository  Database 

Set  rsArchivedFacility  =  dbTel iko • OpenRecordset (fldef nSflL t  dbOpenSnapshot n 

dbReadOnly) 


With  rsArchi vedFaci 
If  TableNotNULL( 
• MoveFirst 
AriesStatusBa 
Refresh 
'Transfer  Fac 
aMeasures  •  Arc 
Call  Displays 
aMeasures • Fac 
Call  Displays 
alleasures  •  Ope 
Call  Displays 
alleasures  •  Fac 
Call  Displays 
alleasures  •  Fac 
Call  Displays 
alleasures  •  Fac 
Call  Displays 
alleasures  •  Com 
Call  Displays 
arieasures  •  Are 
Call  Displays 
alleasures  •  Are 
Call  Displays 
alleasures  •  Are 
Call  Displays 
alleasures  •  Avg 
Call  Displays 
alleasures  •  Dis 
Call  Displays 
alleasures  •  Tot 
Call  Displays 


lity 
rsArchivedFacility)  Then 

r.Panels(l) -Text  =  LoadingArchiveMSG  &  !Fac_ID 

Measures  table 


ility  R 
hived  = 
tatus ( c 
Backlog 
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d  =  ! 
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!  ARE 
asure 

!  ARE 
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asure 


li  NonGI 
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E-,  NonGI 
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3-.  NonGI 

4-,  NonGI 

5-1  NonGI 
ED 

fcn  Heasu 
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AJ.0SS 
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ANING 
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SFramelndex ) 

NT       'Measure  *1 

SFramelndex ) 

'lleasure  *»B 
SFramelndex ) 

'Measure  *3 
SFramelndex ) 

'Measure  *4 
SFramelndex) 

'Measure  #5 
resFramelndex ) 

'Measure  *b 
resFramelndex ) 
ND       'Measure  #7 
resFramelndex ) 

'Measure  *fl 
resFramelndex ) 

'Measure  *T 
uresFramelndex ) 

'Measure  #10 
SNonSflLFramelndex) 

'Measure  #11 
uresFramelndex ) 
S        'Measure  #1E 
uresFramelndex ) 
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alleasu 
Call  D 
afleasu 
Call  D 
alleasu 
Call  D 
alleasu 
Call  D 
afleasu 
Call  D 
Call  D 
Call  D 
Call  D 
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Call    I 
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End 
Set 
End    Sub 


•  FindFirst    "flOVUIC    =    '"    a    cflovUic    a    "'" 
If    Not    -Noflatch    Then 

afleasures  •NovUIC_f1atch   =    True 

Call    DisplayStatus  (confleasurelli    fleasuresFramelndex ) 
afleasures- MOSAvailClos    =     !f10S_AVAIL  'Measure    #1T 

Call    DisplayStatus  (confleasureEDn    fleasuresFramelndex) 
afleasures-  IRR_f10S    =    !IRR_M0S  'fleasure    #BD 

'Increment    Progress    Bar    to    account    for    No    Temp    Tables    created 
iStatusBarflax    =    iStatusBarflax    -    IE 
barSflLstatus  •  flax    =    iStatusBarflax 
Else 

afleasures  ■  f1ovUIC_f1atch    =    False 
End    If 
nd    If 
Close 
With 
rsArchi vedFaci 1 ity    =    Nothing 


Private    Sub    Createf10S_InterestTable  (ByVal    cflovUic    As    String) 
cProcName    =    "CREATE_f10S_INTEREST_TABLE" 
Dim    cQdefnSQL    As    String 
Dim    bNoASSNxf10S_Exists    As    Boolean 

AriesStatusBar-Panels(l) -Text    =    BuildflOSInterestflSG 

bNoASSNxf10S_Exists    =    CreateNoASSNxMOStable  (cflovUic) 
If    bNoASSNxf10S_Exists    Then 

'Create    Interim    Table    C    nOS_INTEREST    1 

Call    DisplayStatus(Tbl_t10SInterest-,    SflLFramelndex ) 

cQdefnSQL    =    GetflOSInterestQuery 

Call    BuildAccessTable(Tbl_f10SInterest-,    fidefJIOSInterest-,    cfldefnSflL) 
End    If 
End    Sub 

Private    Function    CreateNoASSNxflOStable  (ByVal    cflovUic    As    String)    As    Boolean 
Dim    cfldefnSQL    As    String 

'Create    Interim    Table    C    NoASSNxflOS    1 

cddefnSQL    =    NoASSNxflOSflueryBegin    a    cflovUic    a    NoASSNxflOSdueryEnd 

Call    DisplayStatus(Tbl_NoASSNxf10Sn    SfiLFramelndex) 

Call    BuildAccessTable(Tbl_NoASSNxf10S->    Qdef_NoASSNxf10S  -,    cfidefnSQL) 

CreateNoASSNxnoStable    =    True 

End    Function 

Private    Function    GetflOSInterestOuery  (  )    As    String 
cProcName    =    "GET    f10S_INTEREST_c3UERY" 


Dim    rsMOS_Total    As    Recordset 
Dim    rsf10S_Top3    As    Recordset 

Dim    iRecordCtr    As    Long 
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Dim  iMOS_Total  As  Integer 
Dim  iH0S_Top3  As  Integer 
Dim  llOSPercent  As  Single 

llOSPercent  =  O-S 
iMOS_Total  =  D 
iM0S_Top3  =  D 

On  Error  GoTo  EH_f10Sinterest 

'Execute  SflL  Query  for  nOS_Count  Summation 

Set  rsI10S_Total  =  dbAcropol  is  •  OpenRecordset  (H0S_Total(2uery  n  dbOpenDynaset  i 

dbReadOnly) 

If  (3uerySumNotNULL(rsriOS_Total  !  M0S_T0TAL)  Then 

iH0S_Total  =  rsf10S_Total  !I10S_T0TAL 
Else 

iCIOS_Total  =  -1 
End  If 

'Execute  SQL  Query  for  H0S_Top  3 

Set  rsM0S_Top3  =  dbAcropol is ■ OpenRecordset (H0S_Top3(2uery n  dbOpenDynaseti 

dbReadOnly) 

'Sum  Top  3  IIOS's 
With  rsM0S_Top3 

If  TableNotNULL(rsH0S_Top3)  Then  .HoveLast 

iRecordCtr  =  -RecordCount 

If  TableNotNULL(rsM0S_Top3)  And  iRecordCtr  =  3  Then 
• floveFirst 
iflOS_Top3  =  !M0S_C0UNT 

.  NoveNext 

iH0S_Top3    =    if10S_Top3    +    !f10S_C0UNT 

•MoveLast 

if10S_Top3    =    iM0S_Top3    +    !H0S_C0UNT 
Else 

iri0S_Top3    =    1 
End    If 
End    With 

'Determine    MOS    of    Interest 

If    (CSng(iriOS_Top3)    /    CSng  ( iM0S_Total )  )    >    MOSPercent    Then 

GetriOSInterestQuery    =    riOS_INT_Top3<2uery 
Else 

GetriOSInterestQuery    =    H0S_INT_Total(3uery 
End    If 

'Delete    Recordset    Objects 

rsl10S_Total  -Close 

rsl10S_Top3-Close 

Set    rsH0S_Total    =    Nothing 

Set    rsM0S_Top3    =    Nothing 

Exit    Function 

EH_M0Sinterest: 

Select    Case    Err. Number 

Case    ERR_InvalidL)seOFNull 
il10S_Total    =    -I 
Resume    Next 

Case    Else         'Trap    all    other    Errors    8,    Report 
Call    0utputERR0R_L0G 
End 

End    Select 
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End  Function 

Private  Sub  ResetSfiLf rames ( ) 

lstbxStatus(MeasuresFramelndex).  Clear 
txtStatus (MeasuresFramelndex) . Text  =  "" 

lstbxStatus(NonGISFramelndex). Clear 
txtStatus(NonGISFramelndex) -Text  =  "" 

lstbxStatus(GISNonS(2LFr  am  elndex). Clear 
txtStatus(GISNonS(2LFrameIndex) -Text  =  "" 

lstbxStatus(Sl2LFrameIndex).  Clear 
txtStatus(SflLFramelndex) -Text  =  "" 
End  Sub 

Private  Sub  NonGISfluery (ByRef  aMeasures  As  Heasures_Type ) 
cProcName  =  "N0N_GIS_(2UERY" 

Dim  rsFacBklogdMaintMeasure  As  Recordset  'Measure  #1 

Dim  rsOpCostFacCondMeasure  As  Recordset  'Measure  <*B  &  #M 

Dim  rsFacAgeMeasure  As  Recordset  'Measure  #3 

Dim  rsFacOwnedUsedMeasure  As  Recordset  'Measure  *»S  &  #lfl 

Set  rsFacBklogdMaintMeasure  =  dbAcropol is • OpenRecordset (Tbl_RPINFODTi 
dbOpenTablei  dbReadOnly) 
rsFacBklogdMaintMeasure- Index  =  "FACID" 

Set  rsOpCostFacCondMeasure  =  dbAcropol is . OpenRecordset (Tbl_FPS n  dbOpenTablei 

dbReadOnly) 

rsOpCostFacCondMeasure- Index  =  "FACID" 

Set  rsFacAgeMeasure  =  dbAcropol is ■ OpenRecordset (Tbl_Interestn  dbOpenTablen 

dbReadOnly) 

rsFacAgeMeasure • Index  =  "FACID" 

Set  rsFacOwnedUsedMeasure  =  dbAcropol is • OpenRecordset (Tbl_Complex i 
dbOpenTable-,  dbReadOnly) 
rsFacOwnedUsedMeasure • Index  =  "FACID" 

'Calc  Measure  *»1 

lilith  rsFacBklogdMaintMeasure 

•  Seek  "="■,  aMeasures -FacID 

If  Not  (.NoMatch)  Then 

aMeasures  .  FacBacklogdMaint  =  !Maint_Cost 

Else 

aMeasures • FacBacklogdMaint  =  Def aultErrorValue 

End  If 

Call  DisplayStatus ( conMeasureln  NonGISFramelndex ) 
End  With 

'Calc  Measure  *2  &  #M 

rsOpCostFacCondMeasure  •  Seek  "  =  "■,    aMeasures  .  FacID 

If  Not  (rsOpCostFacCondMeasure . NoMatch)  Then 

aMeasures - OperatingCost  =  rsOpCostFacCondMeasure ! C0ST_PR_SF 

'Verify  that  the  stored  value  is  not  NULL 

If  Not  IsNull(rsOpCostFacCondMeasure!FAC_COND)  Then 
aMeasures • FacCond  =  rsOpCostFacCondMeasure ! FAC_C0ND 

Else 

aMeasures • FacCond  =  Def aultErrorValue 

End  If 
Else 

aMeasures  .  OperatingCost  =  Def aultErrorValue 

aMeasures • FacCond  =  Def aultErrorValue 
End  If 

Call  DisplayStatus  (  conMeasureS -i  NonGISFramelndex) 
Call  DisplayStatus ( conMeasureM n  NonGISFramelndex) 
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'Calc  Measure  #3 
Uith  rsFacAgeMeasure 

•  Seek  "  =  "■,    aMeasures • FacID 
If  Not  (-NoMatch)  Then 

If  Not  IsNull  (  !DATE_AC<2)  Then 

aMeasures  •  FacAge  =  ComputeFaci  1  i  tyAge  (  !  DATE_AC<2 ) 
Else 

aMeasures ■ FacAge  =  Def  aul  tErrorValue 
End  If 
Else 

aMeasures • FacAge  =  Def aul tErrorValue 
End  If 

Call  DisplayStatus ( conMeasure3 i  NonGISFramelndex ) 
End  With 

'Calc  Pleasure  *5  &  *  Ifl 

rsFacOwnedUsedMeasure  •  Seek  "="-,    atleasures  •  FacID 

If  Not  (rsFacOwnedUsedMeasure • NoMatch)  Then 

If  Not  IsNull(rsFacOwnedUsedMeasure!FAC_OlilNED)  Then 

aMeasures  •  FacOwned  =  rsFacOwnedUsedMeasure  !  FAC_0b)NED 

Else 

aMeasures • FacOwned  =  Def aul tErrorValue 

End  If 

aMeasures  .  FaclilkndUsed  =  rsFacOwnedUsedMeasure  !  FAC_WKND_USED 
Else 

aMeasures . FacOwned  =  Def aul tErrorValue 

aMeasures  .  FaclilkndUsed  =  Def  aul  tErrorValue 
End  If 

Call  DisplayStatus ( conMeasureSn  NonGISFramelndex ) 
Call  DisplayStatus ( conMeasurelfli  NonGISFramelndex) 
Call  DisplayStatus (vbNul IString n  NonGISFramelndex) 

'Close  Recordset  Objects 

Set  rsFacBk logdMaintMeasure  =  Nothing 

Set  rsOpCostFacCondMeasure  =  Nothing 

Set  rsFacAgeMeasure  =  Nothing 

Set  rsFacOwnedUsedMeasure  =  Nothing 
End  Sub 

Private  Sub  GISduery (ByRef  aMeasures  As  Measures_Type) 
cProcName  =  nGIS_QUERYn 
Dim  cfidefnSflL  As  String 
Dim  rsArchive  As  Recordset 
Dim  rsNoRE(3D  As  Recordset 
Dim  rsNoAuthNG  As  Recordset 
Dim  rsNoASSN  As  Recordset 
Dim  rsNoLOSS  As  Recordset 
Dim  rsNoXFER  As  Recordset 
Dim  rsDrillTotal  As  Recordset 
Dim  rsDrillSAT  As  Recordset 
Dim  rsAvailClos  As  Recordset 
Dim  rsIRR  As  Recordset 
Dim  rsRecrui tMarket  As  Recordset 
Dim  rsReass ignments  As  Recordset 
Dim  rsMOSAvai lClos  As  Recordset 
Dim  rsIRR  MOS  As  Recordset 


'Display  Statusbar  message 
AriesStatusBar- Panels (1) -Text 


SflLStatusMSG  S  aMeasures • FacID 


If  Not  aMeasures • Archived  Then 

'Execute  Maplnfo  GeoQuery  via  OLE  interface 

Call  DisplayStatus (aMeasures • FacID t  Mapinf oFramelndex ) 

If  bMapQueryActive  Then 

Call  Maplnfofluery (aMeasures -FacID) 
Else 

Call  DisplayMessage (OLEf ai ledMSGi  vbCriticali  vbOKOnlyi 

conOLEcaption ) 
bMapBasicRunning  =  False 
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Call  cmdExitBtn_Click 
End  If 
Call  ElapsedTimer ( Time* ( ) ) 

'Get  calculated  AflSAi  ECSt  &  RZA  Distances  from  proposed  Facility 
Call  GetFacilityDistances (afleasures)  'Measure  *13n  Itn  17 

'Build  Temp  Tables  FinanceCYi  AreaFacIDi  AreaZipCodei  AreaUICn  AreaClosUIC 

Call  CreateFinanceTempTable 

Call  CreateAreaFacIDTempTable 

Call  CreateArealllCTempTable 

Call  CreateAreaClosUICTempTable 

Call  CreateAreaZipCodeTempTable 

Call  CreateAreaGlflZipTempTable 

Call  CreateAreaGlBIIOSTempTable 

Call  DisplayStatus ( vbNul IStr ing i  SiSLFramelndex ) 

'Calculate  Heasure  *»b 

Call  DisplayStatus  (  contleasuret.  t  fleasuresFramelndex ) 
Set  rsNoAuthNG  =  dbAcropol is • OpenRecordset (ExTbl_AreaDistancei 
dbOpenSnapshot t  dbReadOnly) 
rsNoAuthNG-floveFirst 

Call  DisplayStatus (conNoAuthNGi  GISNonSdLFramelndex ) 
Call  DisplayStatus ( vbNul IStringn  GISNonSdLFramelndex ) 

Set  rsNoREflD  =  dbAcropolis - OpenRecordset (NoReqdfluery i  dbOpenSnapshot n 
dbReadOnly) 

If  (2uerySumNotNULL(rsNoRE<2D!TOTAL_RE<2D)  Then 

afleasures-  Competition  =  rsNoAuthNG  !  N0_AUTH_NG  +  rsNoREdD  !  T0TAL_RE<2D 
Else 

arteasures  •  Competition  =  Def  aultErrorValue 
End  If 

'Calculate  Pleasure  *7 

Call  DisplayStatus  (conneasure?  i  tleasuresFramelndex  ) 

Set  rsDrillTotal  =  dbAcropol  is  •  OpenRecordset  (Dri  1  lTotalfluery n 
dbOpenSnapshot t  dbReadOnly) 
Call  ElapsedTimer ( TimeS () ) 

Set  rsDrillSAT  =  dbAcropol is • OpenRecordset (Dri USATflueryi  dbOpenSnapshot i 
dbReadOnly) 

If  <2uerySumNotNULL(rsDrillTotal  !DRILL_TOTAL)  And 
<2uerySumNotNULL(rsDrillSAT!T0TAL_SAT)  Then 
If  rsDrillTotal !DRILL_T0TAL  Then 

afleasures. AreaDri 1 1  Attend  =  rsDri 11SAT ! T0TAL_SAT  / 
rsDrillTotal ! DRILL_TOTAL 
Else 

afleasures ■ AreaDri 1 1  Attend  =  Def aultErrorValue 
End  If 
Else 

afleasures • AreaDri 1 1  Attend  =  Def aultErrorValue 
End  If 


'Calculate  Heasure  *fl 

Call  DisplayStatus  (confleasurefii  tleasuresFramelndex  ) 

Set  rsNoASSN  =  dbAcropol  is  •  OpenRecordset  (  NoASSNfluery-i  dbOpenSnapshot  t 
dbReadOnly) 

Call  ElapsedTimer ( Time* () ) 

Set  rsNoLOSS  =  dbAcropol is • OpenRecordset ( NoLOSSfluery i  dbOpenSnapshoti 
dbReadOnly) 

If  <3uerySumNotNULL(rsNoASSN!T0TAL_ASSN)  Then 

If  <2uerySumNotNULL(rsNoL0SS!T0TAL_L0SS)  And  rsNoASSN ! TOTAL_ASSN  Then 

afleasures. AreaLossRate  =  rsNoLOSS ! T0TALJ.0SS  /  rsNoASSN ! TOTAL_ASSN 
Else 

afleasures • AreaLossRate  =  D 
End  If 
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Else 

aMeasures-AreaLossRate 
End  If 


DefaultErrorValue 


'Calculate  Pleasure  **T 

Call  DisplayStatus ( conMeasurel n  NeasuresFramelndex  ) 

Set  rsNoXFER  =  dbAcropol  is  •  OpenRecordset  (  NoXFERduery  i  dbOpenSnapshot-i 
dbReadOnly) 

If  t3uerySumNotNULL(rsNoASSN!T0TAL_ASSN)  Then 

If  (2uerySumNotNULL(rsNoXFER!T0TAL_XFER)  And  rsNoASSN ! TOTAL_ASSN  Then 

alleasures-AreaXferRate  =  rsNoXFER  !  TOTAL_XFER  /  rsNoASSN  !  TOTAL_ASSN 
Else 

aMeasures  .  AreaXferRate  =  D 
End  If 
Else 

alleasures-AreaXferRate  =  DefaultErrorValue 
End  If 

'Calculate  Measure  **1D 

Call  DisplayStatus  (conMeasurelO-i  MeasuresFramelndex) 

If  <2uerySumNotNULL(rsNoASSN!T0TAL_ASSN)  And 
(2uerySumNotNULL(rsNoRE£2D!TOTAL_REi2D)  Then 

arieasures.  AvgAreaMan  =  rsNoASSN  !  TOTAL_ASSN  /  rsNoREflD  !  T0TAL_RE<2D 
Else 

aMeasures • AvgAreaMan  =  0 
End  If 

'Calculate  Measure  *»1S 

Call  DisplayStatus ( conMeasurelS i  MeasuresFramelndex ) 
Set  rsAvailClos  =  dbAcropol is • OpenRecordset ( Total AvailClosfiuery i 
dbOpenSnapshot  i  dbReadOnly) 

If  <2uerySumNotNULL(rsAvailClos!T0TAL_AVAIL)  Then 

aMeasures-TotalAvailClos  =  rsAvailClos ! TOTAL_AVAIL 
Else 

aMeasures • TotalAvai lClos  =  DefaultErrorValue 
End  If 

'Calculate  Measure  *»13 

Call  DisplayStatus ( conMeasurel3n  MeasuresFramelndex) 

Set  rsIRR  =  dbAcropol  is  .  OpenRecordset  (TotallRRQuery-i  dbOpenSnapshotn 
dbReadOnly) 

If  <3ueryCountNotNULL(rsIRR!T0TAL_IRR)  Then 

aMeasures- IRR  =  rsIRR ! T0TAL_IRR 
Else 

aMeasures • IRR  =  DefaultErrorValue 
End  If 

'Calculate  Measure  «1M 

Call  DisplayStatus (conMeasurelM  i  MeasuresFramelndex) 

Set  rsRecrui tMarket  =  dbAcropol is • OpenRecordset ( RecruitMarketfluery i 
dbOpenSnapshot t  dbReadOnly) 

If  <3uerySumNotNULL(rsRecruitMarket!T0TAL_MARKET)  Then 

aMeasures • RecruitMarket  =  rsRecruitMarket ! TOTAL_MARKET 

Else 

aMeasures • RecruitMarket  =  DefaultErrorValue 

End  If 


'Calculate  Measure  #15 
Call  DisplayStatus ( conMeasurel5n  MeasuresFramelndex) 
cfldefnSQL  =  ReassignflueryBegin  &  cMovUic-UIC  &  ReassigndueryEnd 
Set  rsReassignments  =  dbAcropolis  •  OpenRecordset  (cfldef  nS(3Li 
dbOpenSnapshot -.  dbReadOnly) 

If  (3uerySumNotNULL(rsReassignments!T0TAL_RESERVISTS)  Then 

aMeasures • Reassignments  =  rsReassignments ! TOTAL_RESERVISTS 
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Else 

aNeasures ■ Reassignments  =  Def aultErrorValue 
End  If 

'Calculate  Measure  #1^ 

Call  DisplayStatus ( conMeasurel^i  fleasuresFramelndex  ) 
Set  rsMOSAvai  Klos  =  dbAcropol is • OpenRecordset ( TotalClosMOSflueryi 
dbOpenSnapshoti  dbReadOnly) 

If  <3uerySumNotNULL(rsM0SAvailClos!T0TAL_CL0S_M0S)  Then 
aMeasures-MOSAvailClos  -    rsMOSAvai Klos ! T0TAL_CL0S_M0S 

Else 

aMeasures  -  MOSAvai lClos  =  Def  aultErrorValue 

End  If 

'Calculate  Measure  #20 
Call  DisplayStatus  ( contleasureEDi  fleasuresFramelndex) 
Set  rsIRR_nOS  =  dbAcropol  is  •  OpenRecordset  (  TotalIRR_M0S(3uery-i 
dbOpenSnapshot  ■>  dbReadOnly) 

If  <2ueryCountNotNULL(rsIRR_M0S!T0TAL_IRR_M0S)  Then 

aMeasures-IRRJIOS  =  rsIRR_M0S ! T0TAL_IRR_M0S 
Else 

aMeasures • IRR_M0S  =  Def aultErrorValue 
End  If 
Call  ElapsedTimer (TimeS ( ) ) 

Elself  Not  aMeasures • MovUIC_Match  Then 

'Execute  Maplnfo  GeoQuery  via  OLE  interface 
Call  DisplayStatus (aMeasures • FacIDi  Mapinf oFramelndex ) 

If  bMapflueryActi ve  Then 

Call  MapInfo(3uery(  aMeasures -FacID) 
Else 

Call  DisplayMessage ( OLEf ai ledMSGi  vbCriticali  vbOKOnlyn  conOLEcaption) 

bMapBasicRunning  =  False 

Call  cmdExitBtn_Click 
End  If 
Call  ElapsedTimer (Time$( ) ) 

'Build  Temp  Tables  FinanceCYn  AreaFacIDi  AreaZipCodei  AreaUICi  AreaClosUIC 
Call  CreateAreaFacIDTempTable 
Call  CreateAreaUICTempTable 
Call  CreateAreaClosUICTempTable 
Call  CreateAreaZipCodeTempTable 
Call  CreateAreaGlflMOSTempTable 

Call  DisplayStatus  ( vbNul  IStr  ing  t  S(2LFrameIndex  ) 
iStatusBarMax  =  iStatusBarMax  -  M 
barSdLstatus • Max  =  iStatusBarMax 

'Calculate  Measure  SIT 
Call  DisplayStatus ( conMeasurelTi  MeasuresFramelndex) 
Set  rsMOSAvailClos  =  dbAcropol is • OpenRecordset (TotalClosMOSfluery i 
dbOpenSnapshot-.  dbReadOnly) 

If  <2uerySumNotNULL(rsM0SAvailClos!T0TAL_CL0S_M0S)  Then 

aMeasures. MOSAvailClos  =  rsMOSAvai lClos ! T0TAL_CL0S_M0S 

Else 

aMeasures -MOSAvailClos  =  Def aultErrorValue 

End  If 


'Calculate  Measure  **ED 
Call  DisplayStatus (conMeasureEDi  MeasuresFramelndex) 
Set  rsIRR_M0S  =  dbAcropol  is  .  OpenRecordset  (  TotalIRR_M0S<2uery -> 
dbOpenSnapshot i  dbReadOnly) 

If  (2ueryCountNotNULL(rsIRR_M0S!T0TAL_IRR_M0S)  Then 
aMeasures.IRR.MOS  =  rsIRR_M0S ! T0TAL_IRR_M0S 

Else 

aMeasures- IRR_M0S  =  Def aultErrorValue 
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End  If 
'       Call  ElapsedTimer (Time* ( ) ) 
'    End  If 

'Delete  Recordset  Objects 
Set  rsNoAuthNG  =  Nothing 
Set  rsNoREflD  =  Nothing 
Set  rsNoASSN  =  Nothing 
Set  rsNoXFER  =  Nothing 
Set  rsNoLOSS  =  Nothing 
Set  rsDrillTotal  =  Nothing 
Set  rsDrillSAT  =  Nothing 
Set  rsAvailClos  =  Nothing 
Set  rsRecrui tllarket  =  Nothing 
Set  rsReassignments  =  Nothing 
Set  rsPIOSAvai lClos  =  Nothing 
Set  rsIRR_f10S  =  Nothing 
Set  rsIRR  =  Nothing 
End  Sub 

Private  Sub  CloseGISfluery ( ) 

cProcName  =  "CL0SE_GIS_i2UERY" 

objGeofluery.RunflenuCommand    f1_FILE_EXIT 

Call    DisplayStatus  (CompleteflSG -.    fleasuresFramelndex ) 
Call    DisplayStatus  (CompleteflSG -.    NonGISFramelndex ) 
Call    DisplayStatus  (vbNul  IString -.    flapinf  oFramelndex  ) 
Call    DisplayStatus  (CompleteflSG-.    flapinf  oFramelndex  ) 
Call    DisplayStatus  ( CompleteflSG-.    GISNonSflLFramelndex ) 
Call    DisplayStatus  (CompleteflSG -.    SflLFramelndex ) 


barSflLstatus- Value 


iStatusBarflax 


End    Sub 


Private  Sub  GetFaci  1  i  tyDistances  (ByRef  afleasures  As  Heasures_Type  ) 

cProcName  =  "GET_FACILITY_DISTANCES" 

Dim  rsFaci 1 i tyDistancefleasures  As  Recordset   'Measures  #11-.  #lfcn  #17 

On  Error  GoTo  EH_FacDist 

'Open  External  Table 

Set  rsFaci 1 i tyDistancefleasures  = 

dbAcropolis-OpenRecordset (ExTbl_AreaDistance  -.  dbOpenDynaset-.  dbReadOnly) 

Call  DisplayStatus("AflSA  Distance"-.  GISNonSflLFramelndex ) 
Call  DisplayStatusCECS  Distance"-.  GISNonSflLFramelndex ) 
Call  DisplayStatusCRZA  Distance"-,  GISNonSflLFramelndex ) 

If  TableNotNULL (rsFaci 1 ityDistancefleasures )  Then 
blith  rsFaci  1  ityDistancefleasures 
• floveFirst 
'Input  Facility  Distances  into  Measure  Table 

afleasures- DistToAMSA  =  !AflSA_DIST  'Measure  #lb 
afleasures-DistToECS  =  !ECS_DIST  'Measure  #17 
afleasures-  DistToRecrui  t  =  !RZA_DIST  'Measure  #11 
With 


End 
Else 

afle 

afle 

afle 
End  If 
Call  DisplayStatus(vbNullString->  GISNonSQLFramelndex ) 


lasures  •  DistToAflSA  =  Def  aultErrorValue 
lasures • DistToECS  =  Def aultErrorValue 
iasures • DistToRecruit  =  Def aultErrorValue 


'Delete  Recordset  Object 
rsFaci  lityDistancefleasures- Close 
Set  rsFaci  1  ityDistancefleasures  =  Nothing 
Exit  Sub 
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EH_FacDist:  'Error  Handler 

Select  Case  Err-Number 

Case  ERR_ExtrnTableNotAttached 

'call  AttachExternalTable  (ExTbl_AreaDistance ) 
Resume 

Case  Else    'Trap  all  other  Errors  &  Report 
Call  0utputERR0R_L0G 
Resume  Next 
End  Select 
End  Sub 

Private  Sub  CreateFinanceTempTable ( ) 

cProcName  =  "CREATE_FINANCE_TEriP_TABLES" 

Dim  cfldefnSCL  As  String 

Dim  dtDate  As  Date 

Dim  cCY_<3TR  As  String  *  1 

'Initialize  Date  parameters 

dtDate  =  Now 

cCY_<3TR    =    DatePartCq"-,    dtDate) 

Select    Case    CInt ( cCY_(3TR ) 
Case    M 

cfldefnSGL    =    <21FY_SCRN 
Case    1 

cfldefnSCL    =    <22FY_SCRN 
Case    E 

c(3defnS(3L    =    (23FY_SCRN 
Case    3 

cfldefnS<2L    =    <2MFY_SCRN 
End    Select 

'Create    Interim    Table    I    FINANCE_CY    1 

c(2defnS(2L    =    CY_Finance(3uery    &    cfldefnSflL 

Call    DisplayStatus (Tbl_FinanceCYi    SdLFramelndex ) 

Call    BuildAccessTable(Tbl_FinanceCY-,    <2def_FinanceCY  ->    cfldef nSflL) 

End    Sub 

Private    Sub    CreateAreaFacIDTempTable ( ) 

cProcName    =    nCREATE_AREA_FACID_TEMP_TABLE" 

Dim    cQdefnSOL    As    String 

'Create    Interim    Table    E    AREA_FACID    1 
c<2defnS(2L    =    AreaFacIDConvertfluery 

Call    DisplayStatus (Tbl_AreaFacIDs t    SQLFramelndex ) 

Call    BuildAccessTable(Tbl_AreaFacIDs-.    (3def_AreaFacIDs -.    cddefnSflL) 
End    Sub 

Private    Sub    CreateAreaUICTempTable  ( ) 

cProcName    =    "CREATE_AREA_UIC_TEt1P_TABLE" 

Dim  cfidefnSQL  As  String 

'Create  Interim  Table  I    AREA_UIC  1 
c<2defnS(3L  =  AreaUICQuery 

Call  DisplayStatus(Tbl_AreaUICs-.  SflLFramelndex ) 
Call  BuildAccessTable(Tbl_AreaUICsn  (3def_AreaUICs -.  cfldef nSflL ) 
End  Sub 

Private  Sub  CreateAreaClosllICTempTable  ( ) 
cProcName  =  "CREATE_AREA_UIC  TEMP  TABLE" 


Dim  c(2defnS(2L  As  String 

'Create  Interim  Table  C  AREA_CLOS_UIC  1 
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cfidefnSGL    =    AreaClosUICduery 

Call    DisplayStatus(Tbl_AreaClosUICs-.    SflLFramelndex ) 
Call    BuildAccessTable(Tbl_AreaClosUICs-.    <2def_AreaClosllICs  -. 
End    Sub 


cddefnSCL) 


Private    Sub    CreateAreaZipCodeTempTable ( ) 
cProcName    =    "CREATE_AREA_UIC_TE[1P_TABLEn 

Dim    c<2defnS(2L    As    String 

'Create    Interim    Table    E    AREA_ZIPCODE    1 
c(2defnS(2L    =    AreaZipCodeConvertfluery 
Call    DisplayStatus (Tbl_AreaZipCodes t    SflLFramelndex ) 

Call    BuildAccessTable  (Tbl_AreaZipCodesT    <2def_AreaZipCodes  i    cfldefnSflL) 
End    Sub 

Private    Sub    CreateAreaGlfiZipTempTable ( ) 

cProcName    =    nCREATE_AREA_UIC_TEriP_TABLE" 

Dim    cfldefnSQL    As    String 

'Create    Interim    Table    I    AREA_Glfl_ZIP    1 
cGdefnSflL    =    AreaGlfiUICZipCuery 

Call    DisplayStatus(Tbl_AreaGlflUICZips-.    SdLFramelndex ) 

Call    BuildAccessTable(Tbl_AreaGlflUICZips-.    <2def_AreaGlflUICZips -.    cfldefnSfiL) 
End    Sub 

Private    Sub    CreateAreaGiailOSTempTable  ( ) 

cProcName    =    "CREATE_AREA_UIC_TEf1P_TABLE" 

Dim  cfldefnSQL  As  String 

'Create  Interim  Table  I    AREA_Glfl_riOS  3 
ctfdefnSQL  =  AreaGlfiUICZipIIOSfluery 

Call  DisplayStatus(Tbl_AreaGlflUICZipriOSi  SflLFramelndex) 

Call  BuildAccessTable(Tbl_AreaGlflUICZipriOS->  (2def_AreaGlflUICZipl10S  -,  cfldefnSCL) 
Call  ElapsedTimer  (Time<?  (  )  ) 
End  Sub 

Private  Sub  DeleteTempAccessTables ( ) 

cProcName  =  "DELETE_TEriP_ACCESS_TABLESn 

Call  DeleteAccessTable(Tbl_nOSInterest) 
Call  DeleteAccessTable(Tbl_NoASSNxriOS) 
Call  DeleteAccessTable(Tbl_FinanceCY) 
Call  DeleteAccessTable(Tbl_AreaClosUICs) 
Call  DeleteAccessTable(Tbl_AreaFacIDs) 
Call  DeleteAccessTable(Tbl_AreaUICs) 
Call  DeleteAccessTable(Tbl_AreaZipCodes) 
Call  DeleteAccessTable(Tbl_AreaGlflUICZips) 
Call  DeleteAccessTable(Tbl_AreaGlflUICZipl10S) 
End  Sub 


Private  Sub  OutputComputedHeasures  (ByRef  afleasuresO  As  Measures_Type 
ByVal  iFadndex  As  Byte) 
cProcName  =  °0UTPUT_C0nPUTED_f1EASURESn 
Dim  i  As  Byte 

'Output  Computed  Measures 
With  AriesStatusBar 

■  Panels  ( 1)  .  Text  =  OutputrieasuresHSG 

Call  OutputneasuresGrid  (atleasures  ( )  t  iFadndex) 

Call  OutputAr  iesfleasuresExcel  (atleasures  (  )  i  iFadndex) 

DoEvents 

For  i  =  D  To  iFadndex 

Call  OutputAriesFacilityInfo(aMeasures(i) ) 
Next  i 

•  Panels(l) -Text  =  LDULaunchllSG 
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tabAriesdap . Tab  =  5 

fraLDWcntrl . Visible  =  True 
End  With 
Refresh 
End  Sub 

Private  Sub  OutputAriesFaci 1 itylnf o (ByRef  adeasures  As  Measures_Type ) 
cProcName  =  "OUTPUT_ARIES_dEASURES_TABLE" 
Dim  i  As  Byte  'Loop  Variable 

Dim  rsArchi vedFaci lity  As  Recordset 
Dim  <2defnS(2L  As  String 

(3defnS<2L  =  Archi vedFaci 1 i tyflueryBegin  &  adeasures  •  FacID  & 

Archi vedFaci lityfiueryEnd 

AriesStatusBar ■ Panels (1) • Text  =  OutputArchi vedSG 

Refresh 

'Open  Facility  Respository  Database 

Set  rsArchivedFacility  =  dbTel iko • OpenRecordset (Tbl_AriesArchi ve i 

dbOpenDynaset ) 

If  Not  adeasures  •  Archived  Then 

Call  Archi veFaci 1 i tydeasures (rsArchi vedFaci 1 ity i  adeasures) 

Elself  Not  adeasures .  dovl_IIC_datch  Then 

Call  Archi veFacil i tydeasures (rsArchi vedFaci lityi  adeasures) 
End  If 

'Delete  Database  Objects 
Set  rsArchivedFacility  =  Nothing 
End  Sub 

Private  Sub  ArchiveFaci 1 itydeasures (ByRef  adeasures  As  deasures_Type ) 


With  rsdeasures 

• AddNew 

'Transfer  deasures  to  Proposed  Facility 

Record 

!Fac_ID  =  adeasures . FacID 

' deasure 

#D 

!FAC_dAINT  =  adeasures • FacBacklogddaint 

' deasure 

#1 

!FAC_0PC0ST  =  adeasures  •  OperatingCost 

'  deasure 

#E 

!FAC_AGE  =  adeasures - FacAge 

' deasure 

#3 

!FAC_C0ND  =  adeasures ■ FacCond 

' deasure 

#M 

!FAC_OLJNED  =  adeasures  •  FacOwned 

' deasure 

#5 

ICOdPETION  =  adeasures  .  Competition 

' deasure 

ny 

!DRILL_ATND  =  adeasures • AreaDri 1 1  Attend 

' deasure 

#7 

!AREA_L0SS  =  adeasures . AreaLossRate 

' deasure 

#fl 

!AREA_XFER  =  adeasures • AreaXferRate 

' deasure 

#=1 

!AVG_dANING  =  adeasures ■ A vgAreadan 

' deasure 

#10 

!DIST_RZA  =  adeasures- DistToRecruit 

' deasure 

#11 

!AVAIL_CLOS  =  adeasures • Total Avai lClos 

' deasure 

#12 

!IRR  =  adeasures- IRR 

'  deasure 

#13 

!REC_dARKET  =  adeasures • Recruitdarket 

'deasure 

#m 

1REASSIGN  =  adeasures • Reassignments 

'deasure  #15 

!DIST_AdSA  =  adeasures- DistToAdSA 

' deasure 

#lk 

!DIST_ECS  =  adeasures. DistToECS 

' deasure 

#17 

IWKNDJJSED  =  adeasures  -  FacWkndUsed 

'deasure 

#lfl 

!dOS_AVAIL  =  adeasures- dOSAvailClos 

'deasure  #1*1 

!IRR_dOS  =  adeasures- IRR_dOS 

'deasure  #2D 

IdovllIC  =  cdovUicUIC 

'Save  Changes  to  Database 
. Update 
End  With 
End  Sub 


Private  Sub  OutputdeasuresGrid (ByRef  adeasuresO  As  deasures_Type t  ByVal  Index 
As  Byte) 

cProcName  =  nOUTPUT_dEASURES_GRID" 
Dim  i  As  Long 
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Call  Ini tdeasuresGrid ( Index ) 


Uith  griddeasures 

For  i  =  D  To  Index 
Col  =  i  +  1 
Row  =  D 

Text  =  adeasures(: 
Row  =  1 

Text  =  adeasures(: 
Row  =  E 

Text  =  adeasures 
Row  =  3 

Text  =  adeasures 
Row  =  M 

Text  =  adeasures 
Row  =  5 

Text  =  adeasures 
Row  =  b 

Text  =  adeasuresC 
Row  =  7 

Text  =  adeasuresC 
Row  =  fl 

Text  =  adeasuresC: 
Row  =  1 

Text  =  aHeasures 
Row  =  ID 

Text  =  adeasures 
Row  =  11 

Text  =  adeasuresC: 
Row  =  IE 

Text  =  adeasuresC: 
Row  =  13 

Text  =  aHeasures 
Row  =  1M 

Text  =  adeasuresC: 
Row  =  IS 

Text  =  adeasuresC: 
Row  =  lb 

Text    =    atleasures 
Row    =    17 

Text  =  adeasures 
Row  =  Ifl 

Text  =  adeasures 
Row  =  n 

Text  =  adeasures 
Row  =  ED 

Text  =  adeasures 
Next  i 
End  With 
End  Sub 


•FacID 

•FacBacklogddaint 
■ OperatingCost 
. FacAge 
• FacCond 
• FacOwned 

•  Competition 
•AreaDrillAttend 
. AreaLossRate 

. AreaXf erRate 
. AvgAreadan 
•DistToRecruit 

•  Total Avai lClos 

•  IRR 

.  Recrui tdarket 
• Reassignments 
•DistToAdSA 
■DistToECS 

•  FacLlkndUsed 
•dOSAvailClos 
•IRR  dOS 


Private  Sub  EnableLDblbuttons  ( ) 

cProcName  =  nENABLE_LDW_BUTTONSn 

tbararies -Buttons ("matrix") -Enabled  =  True 
tbararies • Buttons ("hierarchy" ) -Enabled  =  True 
tbararies • Buttons ( "dynamic" )• Enabled  =  True 
tbararies -Buttons ("stacked") -Enabled  =  True 
End  Sub 

Private  Sub  CompactAr iesDataBase ( ) 

cProcName  =  "COdPACT  ARIES  DATABASE" 


'Compact  the  Acropolis  Database 

Set  dbAcropolis  =  Nothing 

DBEngine • CompactDatabase  App-Path  &  FILE_Acropolis n  App.Path  8  FILE_Akron 

Kill  App.Path  &  FILE_Acropol isBackup 
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Name  App-Path  8  FILE_Acropol is  As  App-Path  8  FILE_Acropol isBackup 
Name  App-Path  8  FILE_Akron  As  App-Path  8  FILE_Acropol is 

'Compact  the  Repository  Database 

Set  dbTeliko  =  Nothing 

DBEngine • CompactDatabase  App-Path  8  FILE_Telikoi  App-Path  8  FILE_Titan 

Kill  App-Path  8  FILE_Tel ikoBackup 

Name  App-Path  8  FILE_Teliko  As  App-Path  8  FILE_Tel ikoBackup 

Name  App-Path  8  FILE_Titan  As  App-Path  8  FILE_Teliko 

Call  Displaytlessage  (DatabaseCompactedtlSGT  vblnf  ormatiorii  vbOKOnlyi 
conFileCaption) 
End  Sub 
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Module  3.  ARIES  PUBLIC  DECLARATIONS 

Purpose:  Initializes  all  public  variables  and  constants;  Contains  the  variables  that  represent 

the  SQL  business  rules  for  calculating  the  ARU-DM  decision  parameters. 

Source  Type:  Visual  Basic  for  Applications 

Source  File:     libDECLARATIONS.BAS 

Code  Listing: 

Attribute  VB_Name  =  "libDECLARATIONS" 
Option  Explicit 

i ================================================================= 

'  Aries  Status  Bar  Messages 

i ================================================================= 

Public  Const  MovUICstatbarMSG  =  "Enter  Moving  Unit's  (UIC)n 

Public  Const  MovUIClengthMSG  =  "Moving  UIC  must  be  six  "  _ 
&  "Alpha-Numeric  characters" 

Public  Const  Faci 1 ityStatbarMSG  =  "Enter  Facility  Identifier  "  _ 
8  "for  Proposed  Facility  " 

Public  Const  FacIDlengthMSG  =  "Proposed  Facility  Identifier  "  _ 
&  "must  be  entered  in  -C  XX*»*  >  Format" 

Public  Const  LaunchAriesMSG  =  "Select  ARIES  button  to  start  "  _ 
8  "Facility  Comparisions" 

Public  Const  SQLStatusMSG  =  "Calculating  Measures  for  Facility  :  " 
Public  Const  ClearButtonMSG  =  "Clears  all  User  Entries" 
Public  Const  ExitButtonMSG  =  "Ends  Program" 


'      S<2L  Status  Display  Messages 

'================================================================= 

Public  Const  Archi vedFaci  1  i tyMSG  =  "Checking  ARIES  Respository  for  " 

8  "Facilities- •  •" 
Public  Const  Bui ldMOSInterestMSG  =  "Creating  MOS  of  Interest  Tables- 
Public  Const  LaunchMapinf oMSG  =  "Loading  Mapinfo  and  USARC  Databases' 
Public  Const  LDULaunchMSG  =  "Ready  to  Launch  LDU  &  Import  "  _ 

&  "Measures  Table- - -" 
Public  Const  OutputArchi veMSG  =  "Transferring  Measures  Table  to  "  _ 

&  "Aries  Archive---" 
Public  Const  OutputMeasuresMSG  =  "Transferring  Measures  Table  to  "  _ 

8  "EXCEL-  -  -" 
Public  Const  LoadingArchi veMSG  =  "Retrieving  Proposed  Facility  :  " 


'      Message  Box  User  Messages 

' =============== ================================================== 

Public  Const  APIfailedMSG  =  "Uin3E  API  Connection  FAILED-" 
8  vbCr  8  vbCr  8  "Unable  to  Complete  Operation-" 

Public  Const  AriesConf irmMSG  =  "Conduct  Data  Analysis  Comparisions' 
8  "  of  Proposed  Facilities  :" 

Public  Const  DatabaseCompactedMSG  =  "ARIES  Databases  have  been  "  _ 
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8  "Compacted  Successfully." 

Public  Const  Dupl icateFaci 1 ityMSG  =  "Unable  to  Conduct  "  _ 

&  "Analysis."  8  vbCr  &  vbCr  8  "DUPLICATE  FACILITY  PROPOSED" 

Public  Const  FacIDinval idMSG  =  ">  is  currently  not  on  file  in  "  _ 
8  "the  COMMAND  PLAN  or  USARC  GEOREF  File" 

Public  Const  Inval idGISdueryMSG  =  "Unable  to  Conduct  Analysisn  "  _ 
8  vbCr  8  vbCr  8  "Insufficient  Amount  of  FACILITY(s)  PROPOSED" 

Public  Const  LDUresetMSG  =  "Do  you  wish  to  RESET  the  LDL)  Application?"  _ 
8  vbCr  8  vbCr  8  "All  Unsaved  Data  Changes  will  be  Deleted-" 

Public  Const  MovUICinval idMSG  =  "1  is  currently  not  on  file  in  "  _ 
8  "the  COMMAND  PLAN  or  USARC  GEOREF  File" 

Public  Const  NoFaci  1  ityComparedflSG  =  "ARIES  Facility  Comparision  "  _ 
8  "Operation  has  not  been  Performed-" 

Public  Const  OLEfailedMSG  =  "OLE  Connection  FAILED." 
8  vbCr  8  vbCr  8  "Please  RESTART  Application." 

Public  Const  CompletellSG  =  "**  COMPLETE  **" 

Public  Const  AreaGlflMSG  =  "Area  Glfi" 

Public  Const  ArealRRMSG  =  "Area  IRR" 

Public  Const  AreaflMAMSG  =  "Area  (2MA" 

Public  Const  conNoAuthNG  =  "N0_AUTH_NG" 

Public  Const  CompactDatabaseMSG  =  "Do  you  wish  to  COMPACT  the  Aries  Databases?' 

Public  Const  LDlilacti veMSG  =  "LDW  Application  currently  not  Activated-" 

Public  Const  PrinterReadyMSG  =  "Ensure  Printer  is  Ready---." 

Public  Const  ProgressIndicatorMaxMSG  =  "Progress  Bar  Maximum  Limit  Exceeded" 

Public  Const  conFacil ityErrorCaption  =  "Proposed  Facility  Selection" 

Public  Const  conUICcaption  =  "Unit  Identification  Code  Selection" 

Public  Const  conErrorCaption  =  "UNEXPECTED  ERROR  Trap" 

Public  Const  conOLEcaption  =  "Windows  15  OLE  Link  Error" 

Public  Const  conAPIcaption  =  "Logical  Decisions-b)in3S  API  Link" 

Public  Const  conS<2Lcaption  =  "SflL  fluery  Computation" 

Public  Const  conFi leCaption  =  "ARIES  File  Maintenance  Operations" 


'      SflL  fluery  Definitions  (Temporary  Tables) 

Public  Const  NoASSNxMOSQueryBegin  =  "Select  MOSt  Count(*)  as  "  _ 
8  "M0S_C0UNT  Into  NoASSNxMOS  From  GlflNatl  Idhere  UIC  =  '" 

Public  Const  NoASSNxMOSQueryEnd  =  "'  Group  by  MOS  Order  by  "  _ 
8  "CountU)  DESC" 

Public  Const  M0S_Total(3uery  =  "Select  Sum  (M0S_C0UNT)  as  "  _ 
8  "M0S_T0TAL  From  NoASSNxMOS" 

Public  Const  M0S_Top3(2uery  =  "Select  Top  3  M0S_C0UNT  From  " 
8  "NoASSNxMOS" 

Public  Const  MOS_INT_Totalfluery  =  "Select  MOS  Into  " 
8  "MOS_INTEREST  From  NoASSNxMOS  Order  by  MOS" 

Public  Const  M0S_INT_Top3(3uery  =  "Select  Top  3  MOS  Into  "  _ 
8  "MOS_INTEREST  From  NoASSNXMOS  Order  By  MOS" 

Public  Const  CY_Finance(3uery  =  "Select  UIC-.  Count(UIC)  as  UIC_T0TAL 
8  "into  FINANCE  CY  From  FINANCE  £3TR  Idhere  " 


Public  Const  (31FY_SCRN  =  "(UTAlfllPF  +  UTAEfllPF  +  UTA3A1PF  +  " 
8  "UTAmnPF)  >  ED  Group  by  UIC  Order  by  UIC" 

Public  Const  i22FY_SCRN  =  "(UTASQ1PF  +  UTA3A1PF  +  UTAMdlPF  +  " 
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a  "UTAlflCFY)  >  50  Group  by  UIC  Order  by  UIC" 

Public  Const  <23FY_SCRN  =  "(UTA301PF  +  UTAMfllPF  +  UTA1CCFY  +  n 
&  "UTAEflCFY)  >  ED  Group  by  UIC  Order  by  UIC" 

Public  Const  (3MFY_SCRN  =  "(UTAMQIPF  +  UTA1QCFY  +  UTAEflCFY  +  " 
&  "UTA3CCFY)  >  ED  Group  by  UIC  Order  by  UIC" 

Public  Const  AreaFacIDConvertfluery  =  "Select  FAC_ID  Into  "  _ 
a  "AREA_FACID  From  AreaFacID  Order  by  FAC_ID" 

Public  Const  AreaZipCodeConvertCuery  =  "Select  Zip  Into  "  _ 
a  "AREA_ZIPCODE  From  AreaZipCode  Order  by  Zip" 

Public  Const  AreaUICfluery  =  "Select  Distinct  UIC  Into  AREA_UIC  "  _ 
a  "From  VALID_UIC  Where  VALID_UIC . FAC_ID  =  Any  (Select  " 
8  "AREA_FACID-FAC_ID  From  AREA_FACID)  Order  by  UIC" 

Public  Const  AreaClosUICfluery  =  "Select  UIC  Into  AREA_CLOS_UIC  " 
a  "From  G17Natl  Where  Tier  =  'SB'  and  G17Natl.UIC  =  Any  " 
a  "(Select  AREA_UICUIC  From  AREA_UIC)  Order  by  UIC" 

Public  Const  AreaGlflUICZipQuery  =  "Select  Distinct  UIC-i  ZipCode-.  "  _ 
a  "Count(UIC)  as  UIC_T0TAL  Into  Area_Glfl_ZIP  from  Glfl  " 
8  "Group  by  UIO  ZipCode  Order  by  UIO  ZipCode" 

Public  Const  AreaGlflUICZipMOSfluery  =  "Select  Distinct  UIO  ZipCode-.  r 
8  "flOS-,  Count(UIC)  as  UIC_T0TAL  Into  Area_GlflJ10S  from  Glfl  " 
8  "Group  by  UIO  ZipCode-,  MOS  Order  by  UIO  ZipCode.  I10S" 


'      SQL  Query  Definitions  (Temporary  Recordsets) 

Public  Const  NoReqdfluery  =  "Select  Sum  (UIC_T0TAL )  as  T0TAL_RE(2D  " 
8  "From  GlTNatl  Where  GlTNatl • UIC  =  Any  (Select  AREAJJIC • UIC" 
8  "  From  AREAJJIO" 

Public  Const  DrillTotalfiuery  =  "Select  Sum (UIC_T0TAL)  as  DRILL_T0TAL  r 
8  "From  FINANCE_  Where  FINANCE.. UIC  =  Any  (Select  AREA_UICUIC  " 
8  "From  AREA_UIO" 

Public  Const  Dri 1 ISATQuery  =  "Select  Sum (UIC_T0TAL)  as  T0TAL_SAT  " 
8  "From  FINANCE_CY  Where  FINANCE_CY .  UIC  =  Any  (Select  AREA_UICUIC 
8  "From  AREA_UIO" 

Public  Const  NoASSNfiuery  =  "Select  Sum (UIC_T0TAL )  as  TOTAL_ASSN  " 
8  "From  GlANatl_UIC  Where  GlflNatl_UIC -UIC  =  Any  " 
8  "(Select  AREA_UICUIC  From  AREA_UIO" 

Public  Const  NoLOSSQuery  =  "Select  Sum (UIC_T0TAL)  as  T0TAL_L0SS  From  r 
8  "FYxxLOSS  Where  FYxxLOSS-UIC  =  Any  (Select  AREAJJIOUIC  From  " 
8  "AREA_UIO" 

Public  Const  NoXFERQuery  =  "Select  Sum (UIC_T0TAL)  as  TOTAL_XFER  From  r 
8  "FYxxXFER  Where  FYxxXFER.UIC  =  Any  (Select  AREA_UICUIC  From  " 
8  "AREA_UIO" 

Public  Const  Total Avai KlosQuery  =  "Select  Sum(UIC_TOTAL)  as  "  _ 
8  "TOTAL_AVAIL  From  Area_Glfl_ZIP  Where  Area_Glfl_ZIP • UIC  =  "  _ 
8  "Any  (Select  AREAJJIOUIC  From  AREAJJIO  and  " 
8  "Area_Glfl_ZIP-ZIPCODE  =  Any(Select  AREA_ZIPCODE.ZIP  From  "  _ 
8  "AREA_ZIPCODE)" 

Public  Const  TotallRRQuery  =  "Select  Count(«)  as  T0TAL_IRR  "  _ 
8  "From  IRR  Where  IRR-ZIP  =  Any  (Select  AREA_ZIPC0DE.ZIP  " 
8  "From  AREA  ZIPCODE)" 


Public  Const  Recrui tHarket(3uery 


'Select  Sum(MWCATlE+HWCAT3A+" 
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&  "MBCATlE  +  riBCAT3A  +  l1HCAT12  +  riHCAT3A)  as  T0TALJ1ARKET  From  " 
&  "<2t1A  Where  ANA. ZIP  =  Any  (Select  AREA_ZIPCODE.ZIP  n 
8.  "From  AREA_ZIPCODE  )  " 

Public  Const  ReassignflueryBegin  =  "Select  Sum (UIC_T0TAL)  as  " 
&  "TOTAL_RESERVISTS  From  Area_Gia_ZIP  Where  " 
&  "Area_Glfi_ZIP.UIC  =  '" 

Public  Const  ReassigntfueryEnd  =  "'  and  Area_Glfl_ZIP • ZIPCODE  = 
&  "Any  (Select  AREA_ZIPCODE.ZIP  From  AREA_ZIPCODE ) " 

Public  Const  TotalClosMOSfluery  =  "Select  Sum (UIC_T0TAL)  as  " 
8  "T0TAL_CL0S_I10S  From  Area_Glfi_MOS  Where  A r e a_G 1 fljl  0 S  •  flOS 
8  "=  Any  (Select  f10S_INTEREST  .MOS  From  MOS_INTEREST )  and  " 
8  "Area_Glfl_MOS.UIC  =  Any  (Select  AREA_CLOS_UIC -UIC  From  " 
8  "AREA_CL0S_UIO  and  Area_Glfi_f10S -ZIPCODE  =  Any  (Select  " 
8  "AREA  ZIPCODE.ZIP  From  AREA_ZIPCODE) " 


Public  Const  TotalIRR_M0S(2uery  =  "Select  Count(MOS)  as  "  _ 
8  "T0TAL_IRRJ10S  From  IRR  Where  IRR.I10S  =  Any  (Select  " 
8  "HOS_INTEREST.riOS  From  I10S_INTEREST) " 

Public  Const  Archi vedFaci 1 itydueryBegin  =  "Select  *  From  Repository  Where  FAC_ID 

_   r  n 

Public  Const  ArchivedFaci lityflueryEnd  =  "'  Order  by  MOVUIC" 

.AreaClosUICs  =  "Build  AreaClosUIC" 
.AreaUICs  =  "Build  AreaUIC" 
.AreaFacIDs  =  "Build  AreaFacID" 

AreaGlflUICZipllOS  =  "Build  AreaGlflMOS" 
.AreaGlflUICZips  =  "Build  AreaGlflZip" 
.AreaZipCodes  =  "Build  AreaZipCode" 
.DropTable  =  "Drop  Table" 
.FinanceCY  =  "Build  FinanceCY" 

HOSInterest  =  "Build  MOSInterest" 

NoASSNxllOS  =  "Build  NoASSNxIIOS" 


Public 

Const 

fldef 

Public 

Const 

fidef 

Public 

Const 

fidef 

Public 

Const 

<2def 

Public 

Const 

<2def 

Public 

Const 

Qdef 

Public 

Const 

fldef 

Public 

Const 

Qdef 

Public 

Const 

fidef 

Public 

Const 

(2def 

Acropolis  Database  Table  Names 


Public 

Const 

Tbl  AreaClosUICs  =  "AREA_CL0S  UIC" 

Public 

Const 

Tbl  AreaFacIDs  =  "AREA_FACID" 

Public 

Const 

Tbl_AreaG18UICZipf10S  =  "AREA_Glfl_riOS 

Public 

Const 

Tbl_AreaGlfiUICZips  =  "AREA_Glfl_ZIP" 

Public 

Const 

Tbl  AreaUICs  =  "AREA_UIC" 

Public 

Const 

Tbl_AreaZipCodes  =  "AREA_ZIPCODE" 

Public 

Const 

Tbl  AriesArchive  =  "REPOSITORY" 

Public 

Const 

Tbl  CommandPlan  =  "CDDPLAN" 

Public 

Const 

Tbl_Complex  =  "C0I1PLEX_" 

Public 

Const 

Tbl_ErrorLog  =  "ERR0R_L0G" 

Public 

Const 

Tbl  FinanceCY  =  "FINANCE_CY" 

Public 

Const 

Tbl_FPS  =  "FPS_" 

Public 

Const 

Tbl  G17Natl  =  "G17Natl" 

Public 

Const 

Tbl  Interest  =  "INTEREST  " 

Public 

Const 

TblJIOSInterest  =  "MOS_INTEREST" 

Public 

Const 

Tbl  NoASSNxtlOS  =  "NoASSNxIIOS" 

Public 

Const 

Tbl_RPINFODT  =  "RPINF0DT_" 

Public 

Const 

Tbl_ValidateUIC  =  "VALID_UIC" 

Public 

Const 

Tbl_ValidateUnit  =  "VALID_UNIT" 

Public 

Const 

ExTbl  AreaDistance  =  "AreaDistance" 

Public 

Const 

ExTbl_AreaFacIDs  =  "AreaFacID" 

Public 

Const 

ExTbl_AreaUICs  =  "AreaUIC" 

Public  Const  ExTbl_PropFaci 1 ity  =  "PropFacID 


Aries  OLE  Class  Names 
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Public  Const  Class_LDU  ■  "OwlUindow" 

Public  Const  Class_MapInf o  =  "xvt3E0mdi tasklOO" 

Public  Const  Class_Excel  =  "XLIIain" 

Public  Const  Class_ARIES  =  "ThunderForm" 

Public  Const  ARIES_Appl ication  =  "A  R  I  E  S    v3-0 


Aries  UinAPI3E  Constants 


Public  Const  SU_Normal  =  3 
Public  Const  SU  flinimum  =  2 


Aries  Pleasure  Table  Names 


Publ 

L  C 

Const 

contleasureO  = 

"Facility  ID" 

Publ 

LC 

Const 

contleasurel  = 

"Backlogged  tlaint" 

Publ 

LC 

Const 

conlleasureE  = 

"Operating  Cost" 

Publ 

LC 

Const 

conf1easure3  = 

"Facility  Age" 

Publ 

LC 

Const 

confleasureM  = 

"Facility  Condition" 

Publ 

LC 

Const 

confleasureS  = 

"Facility  Owned" 

Publ 

LC 

Const 

confleasureb  = 

"Competition" 

Publ 

LC 

Const 

conMeasure?  = 

"Drill  Attendance" 

Publ. 

LC 

Const 

confleasureS  = 

"Area  Loss  Rate" 

Publ 

LC 

Const 

confleasureS  = 

"Area  Xfer  Rate" 

Publ. 

LC 

Const 

contleasurelO  = 

"Avg  Area  Planning" 

Publ. 

LC 

Const 

confleasurell  = 

"RZA  Distance" 

Publ. 

LC 

Const 

conPleasurelE  = 

"Total  Avail  (Close) 

Publ- 

LC 

Const 

confleasurelS  = 

"IRR" 

Publ: 

LC 

Const 

conNeasurelM  = 

"Recruit  Market" 

Publ. 

LC 

Const 

conf1easurel5  = 

"Reassignments" 

Publ: 

LC 

Const 

confleasurelb  = 

"AMSA  Distance" 

Publ: 

LC 

Const 

conf1easurel7  = 

"ECS  Distance" 

Publ: 

LC 

Const 

confleasurelS  = 

"Weekend  Usage" 

Publ: 

LC 

Const 

conHeasurelT  = 

"nOS  Avail  (Close)" 

Publ: 

LC 

Const 

confleasureEO  = 

"IRR  MOS" 

Publ: 

LC 

Const 

conTotalfleasures  =  EO 

Publ: 

LC 

Const 

conTotallnterimTables  =  17 

Publ: 

LC 

Const 

conSingleflessa 

ges  =  3 

Publ: 

LC 

Const 

conPlaximumColumns  =  M 

Publ: 

LC 

Const 

conFi veColumnU 

idth  =  ^b? 

Publ: 

LC 

Const 

conFourColumnU 

idth  =  IE 10 

Publ: 

LC 

Const 

c  o  n  T  h  r  e  e  C  o  1  u  m  n 

Width  =  lb30 

Publ: 

LC 

Const 

conTwoColumnUi 

dth  =  EMbO 

Publ: 

LC 

Const 

conOneColumnUi 

dth  =  1370 

Publ: 

LC 

Const 

fleasuresFramel 

ndex  =  0 

Publ: 

LC 

Const 

NonGISFramelnd 

ex  =  1 

Publ: 

LC 

Const 

llapinf  oFrameln 

dex  =  E 

Publ: 

LC 

Const 

GISNonSflLFrame 

Index  =  3 

Publ. 

LC 

Const 

S  Q.  L  F  r  a  m  e  I  n  d  e  x 

=  H 

Aries  Error  Handler  Codes 


Publ: 

LC 

Const 

ERR 

Publ: 

LC 

Const 

ERR 

Publ- 

LC 

Const 

ERR 

Publ 

LC 

Const 

ERR 

Publ 

LC 

Const 

ERR 

Publ 

LC 

Const 

ERR 

Publ 

LC 

Const 

ERR 

Publ 

L  C 

Const 

ERR 

Publ 

L  C 

Const 

ERR 

Publ 

.C 

Const 

ERR 

Publ 

LC 

Const 

ERR 

Publ 

;  C 

Const 

ERR 

.Ob jectExists  =  301E 
.TableExists  =  3010 
.TableNotExists  =  337t> 
.ExtrnTableNotAttached  =  307B 
.FileNotFound  =  53 
.LockTableFai lure  =  3E11 
.ProgressBartlaxExceeded  =  3A0 
.LDURunning  =  5 
_TooFewParameters  =  30bl 
.InvalidUseOFNull  =  TM 
.NoCurrentRecord  =  30E1 
.ReqdFilelndexdissing  =  3015 
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Public  Const  ERR_0b jectUnloaded  =  3bM 

Public  Const  ERR_NotValidPath  =  30^ 

Public  Const  ERR_DatabaseAlreadyOpen  : 

Public  Const  ERR_ItemNotInCol lection  ■ 


33Sb 
35b5 


Public  Const  Def aul tErrorValue  =  -ITI 


Aries  File  Paths 


Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 
Pub 

Pub 
Pub 
Pub 


onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 
onst 


FILE 

FILE 

FILE 

FILE. 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE. 

FILE 

FILE 


Akron 

Acrop 

Acrop 

Major 

EROS 

Excel 

GeoRE 

LDU  = 

LDW_T 

LDU_E 

LDU_D 

LDW_A 

NapBa 

.Mapln 

NapUo 

State 

State 

Telik 

Telik 

Titan 


=  "\MS 
olis  = 
olisBac 
City  = 
=  "\HS__ 

=  "\LD 
F  =  "\I1 

"C:\LD 
emplate 
xcel  = 
ef aultS 
rchi veD 
sic  =  " 
fo  =  "C 
rkspace 

s  =  "\n 

Capital 

o    =    "\M 

oBackup 

=    "\MS 


_Acc 

n\ns 

kup 

"\f1a 

Acce 

IAI1S 

apBa 

IALD 

—  n 

"\LD 
ave 
ir    = 
\Hap 
:\HA 

_     n 

apBa 

s    = 
S_Ac 

—  n 

Ace 


ess\Ak 
_Acces 

=  "\ns 

pBasic 
ss\Ero 
_Excel 
sic\Us 
Wstud- 
\LDU\T 

w\ns_E 

=  "\LD 
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ic  Const  DB_ACR0P0LIS  =  "\MS_ACCESS\ACR0P0LIS.mdb" 
ic  Const  DB_ACR0P0LISBAK  =  "\nS_ACCESS\ACR0P0LIS -bak' 
ic  Const  DB_nEASURES  =  "\MS_ACCESS\neasures.mdb" 


Aries  Pleasures  (User  Defined  Type) 


Type  Heasures_Type 

Archived  As  Boolean 

HovUIC  Hatch  As  Boolean 

FacID  As  String  *  5 

FacBacklogdllaint  As  Single 

OperatingCost  As  Single 

FacAge  As  Integer 

FacCond  As  String  *  5 

FacOwned  As  String  *  1 

Competition  As  Integer 

AreaDri 1 1  Attend  As  Single 

AreaLossRate  As  Single 

AreaXferRate  As  Single 

AvgAreaflan  As  Single 

DistToRecrui t  As  Single 

Total Avai lClos  As  Integer 

IRR  As  Integer 

Recrui tNarket  As  Long 

Reassignments  As  Integer 

DistToAflSA  As  Single 

DistToECS  As  Single 

FaclilkndUsed  As  Byte 

flOSAvai  lClos  As  Integer 

IRR_M0S  As  Integer 

End  Type 

Type  HovingUni t_Type 
UIC  As  String  *  t, 
FacID  As  String  *  S 
UnitName  As  String 
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City  As  String 
State  As  String  *  2 
ZipCode  As  String  *  5 
End  Type 


Type  Facil ity_Type 
FacID  As  String  * 
City  As  String 
State  As  String  * 
ZipCode  As  String 

End  Type 


Type    Inf oTool_Type 

tlapTable    As    String 
GeoFacID    As    String 

End    Type 
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Module  4.  ARIES  PROCEDURES  LIBRARY 


Purpose:  A  library  module  that  contains  all  the  procedures  called  by  other  procedures  more 

than  one  time. 

Source  Type:  Visual  Basic  for  Applications 

Source  File:     LIBRARY.BAS 

Code  Listing: 

Attribute  VB_Name  =  nl  ibPROCEDURES" 

Declare  Function  GetClassNameS  Lib  "user32"  Alias  "GetClassNameA"  _ 

(ByVal  hwnd  As  Long!  ByVal  lpClassName  As  Stringi  ByVal  nflaxCount  As  Long) 

Declare  Function  ShowUindow&  Lib  "user32"  _ 

(ByVal  hwnd  As  Longi  ByVal  nCmdShow  As  Long) 

Declare  Function  FindhJindowS  Lib  "user32"  Alias  "FindUindowA"  _ 
(ByVal  lpClassName  As  Stringn  ByVal  lpUindowName  As  String) 

Public  Function  KeyUpperNumeric (nKeyVal  As  Integer)  As  Integer 
cProcName  =  "FUNC : KEY_UPPER_NUMERIC" 

'Passes  Uppercase  Letters 

'Converts  Lowercase  to  Uppercase 

'Passes  {D-ili2i3-iM-i5-.fci-i7-ifl-.1>  &  Cntrl  Codes 

•REJECTS  ALL  else 

If  nKeyVal  >  2b  Then 

If  Chr(nKeyVal)  >=  "a"  And  Chr(nKeyVal)  <=  "z"  Then 

nKeyVal  =  nKeyVal  -  32 
End  If 

If  Chr(nKeyVal)  >=  "A"  And  Chr(nKeyVal)  <=  "Z"  Then 

nKeyVal  =  nKeyVal 
Else 

nKeyVal  =  KeyNumeric (nKeyVal ) 
End  If 
End  If 

KeyUpperNumeric  =  nKeyVal 

End  Function 

Private  Function  KeyNumeric ( nKeyVal  As  Integer)  As  Integer 
cProcName  =  "FUNC :KEY_NUMERIC" 

Dim  cVal idNumer ic  As  String 

cValidNumeric  =  "0123^1,76^" 

If  nKeyVal  >  2b  Then 

If  InStr(cValidNumeric-.  Chr  (nKeyVal )  )  =  D  Then 
nKeyVal  =  0 

End  If 
End  If 

KeyNumeric  =  nKeyVal 
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End  Function 

Public  Function  Val  idateMovUIC  (ByVal  cUIC  As  String)  As  Boolean 
cProcName  =  "FUNC : VALIDATEJIOVUIC" 

Dim  rsVal idateMovUIC  As  Recordset 

'Develop  Criteria  for  Search 
ValidateMovUIC  =  True 

'Open  Validation  Table 

Set  rsValidateMovUIC  =  dbAcropol  is  ■  OpenRecordset  (Tbl_ValidateUIC-. 

dbOpenTable-.  dbReadOnly) 

With  rsValidateMovUIC 

•Index  =  "UIC" 

•  Seek  "  =  "-,  cUIC 


'Get  Facility  Information 


'Examine  Table  for  first  occurance  of  Moving  Unit  UIC 
If  -NoMatch  Then 

ValidateMovUIC  =  False 
Else 

cMovUicFacID  =  !  Fac_ID 

cMovUic • UnitName  =  !UnitName 

cdovUic • City  =  !City 

cMovUic  State  =  !State 

cMovUic . ZipCode  =  !Zip 
End  If 
•  Close 
End  With 


'Delete  Recordset  Object 

Set  rsVal  idateMovUIC  =  Nothing 

End  Function 

Public  Function  Val idateFacID (ByVal  cFacID  As  String!  _ 
ByRef  rsVal idateFacID  As  Recordset)  As  Boolean 
cProcName  =  "FUNC : VALIDATE_FACIDn 

'Develop  Criteria  for  Search 
rsValidateFacID-Seek  "  =  "-,  cFacID 

'Examine  Table  for  first  occurance  of  FACID 
If  rsValidateFacID-NoHatch  Then 

ValidateFacID  =  False 
Else 

ValidateFacID  =  True 
End  If 

End  Function 

Public  Function  ComputeFaci 1 ityAge (ByVal  DateAcquired  As  Date)  As  Integer 
cProcName  =  "FUNC : COMPUTE_FACILITY_AGE" 
Dim  PresentDate  As  Date 

On  Error  Resume  Next 

'Minimum  Facility  Age  Value  (Default) 

ComputeFaci 1 i tyAge  =  D 

'Today's  Date 
PresentDate  =  Now 

If  IsDate(DateAcquired)  Then  'Valid  Date 

ComputeFacilityAge  =  DateDif f ("m" t  DateAcquiredn  PresentDate) 
End  If 

End  Function 


Public  Function  DisplayHessage  (ByVal  cflsgText  As  Stringn  _ 
ByVal  iMsglcon  As  Byte-,  ByVal  iMsgBtn  As  Byte-.  _ 
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cflsgCaption    As    String)    As    Integer 

Displayflessage    =    MsgBox  ( ctlsgText  n    iHsglcon    +    iflsgBtni    cflsgCaption) 

End  Function 

Private  Function  FormatTime ( ByVal  iTime  As  Long)  As  String 
Dim  iHour  As  Long 
Dim  iflinute  As  Long 
Dim  iSecond  As  Long 
Dim  iRemainder  As  Long 

FormatTime  =  cdueryStartTime 

iHour  =  iTime  \  3LDD 

iRemainder  =  (iTime  -  (iHour  *  3b00)) 

idinute  =  iRemainder  \  bO 

iSecond  =  iRemainder  -  (iflinute  *  bO) 

If  Len(CStr(iHour))  =  2  Then 

FormatTime  =  CStr(iHour)  8  ":" 
Else 

FormatTime  =  "0"  8  CStr(iHour)  8  ":" 
End  If 

If  Len(CStr(ininute) )  =  2  Then 

FormatTime  =  FormatTime  8  CStr(  iflinute)  8  ":" 
Else 

FormatTime  =  FormatTime  8  "0"  8  CStr  ( iflinute)  8  ":" 
End  If 

If  Len(CStr(iSecond) )  =  2  Then 

FormatTime  =  FormatTime  8  CStr ( iSecond ) 
Else 

FormatTime  =  FormatTime  8  "D"  8  CStr ( iSecond) 
End  If 

End  Function 

Public  Function  TableNotNULL (ByRef  rsRecord  As  Recordset)  As  Boolean 
cProcName  =  "FUNC : TABLE_N0T_NULL" 

On  Error  Resume  Next 

TableNotNULL  =  True 

If  rsRecord • AbsolutePosi tion  =  -1  Then 

TableNotNULL  =  False 
End  If 

End  Function 

Public  Function  AuerySumNotNULL (ByVal  cSumResult  As  Variant)  As  Boolean 
cProcName  =  "FUNC  :  <2UERY_SUM_N0T_NULL" 

On  Error  Resume  Next 

CuerySumNotNULL  =  True 

If  IsNull(cSumResult)  Then 
AuerySumNotNULL  =  False 
End  If 

End  Function 

Public  Function  AueryCountNotNULL (ByVal  cSumResult  As  Variant)  As  Boolean 

cProcName  =  "FUNC  :  (3UERY_C0UNT_N0T_NULL" 

On  Error  Resume  Next 
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CueryCountNotNULL  =  True 

If  cSumResult  =  D  Then 

(JueryCountNotNULL  =  False 
End  If 

End  Function 

Public  Sub  Traf f icLight (ByVal  Color  As  Long) 
cProcName  =  "TRAFFIC  LIGHT" 


With  frmAries 
Select  Cas 

Case  vb 
shp 
shp 
shp 
cmd 

Case  vb 
shp 
shp 
shp 
cmd 

Case  vb 
shp 
shp 
shp 
cmd 

Case  vb 
shp 
shp 
shp 
cmd 
End  Select 
End  With 


flain 

e  Color 

Red 

RedLite 

YellowL 

GreenLi 

AriesBt 

Yellow 

RedLite 

YellowL 

GreenLi 

AriesBt 

Green 

RedLite 

YellowL 

GreenLi 

AriesBt 

Black 

RedLite 

YellowL 

GreenLi 

AriesBt 


. Fi 1 IColor  =  Color 
ite-FillColor  =  vbBlack 
te-FillColor  =  vbBlack 
n-Enabled  =  False 

•FillColor  =  vbBlack 
i te • Fi 1 IColor  =  Color 
te-FillColor  =  vbBlack 
n. Enabled  =  False 

•FillColor  =  vbBlack 
ite. FillColor  =  vbBlack 
te-FillColor  =  Color 
n ■ Enabled  =  True 

•FillColor  =  Color 
ite  •  Fi 1 IColor  =  Color 
te-FillColor  =  Color 
n. Enabled  =  False 


End  Sub 

Public  Sub  GetPropFacilitylnf o (ByRef  cFaci 1 itylnf o  As  Faci 1 ity_Type n 
ByRef  rsFaci 1 ityData  As  Recordset) 
cProcName  =  "GET_FACILITY_INFO" 
Dim  bValidFacility  As  Boolean 

On  Error  GoTo  EH_GetPropFacInf o 

bValidFacility  =  Val  idateFacID  (  cFaci  1  itylnf  o  •  FacID  -,    rsFaci  1  ityData) 

If  bValidFacility  Then 
With  cFaci 1 itylnf o 

•City  =  rsFaci lityData ! City 

•State  =  rsFacilityData ! State 

•ZipCode  =  rsFacilityData ! Zip 
End  With 

Call  LoadPropFacilityUICBox(cFacilityInfo. FacID) 
End  If 

Exit  Sub 

EH_GetPropFacInfo: 

Select  Case  Err-Number 

Case  ERR_InvalidUseOFNull 
Resume  Next 

Case  Else    'Trap  all  other  Errors  8.  Report 
Call  0utputERR0R_L0G 
Resume  Next 
End  Select 
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End  Sub 

Public  Sub  DisplayPropFaci litylnf o (ByRef  cFacility  As  Faci 1 ity_Type ) 
cProcName  =  "DISPLAY_FACILITY_INFO" 

Uith  f rmAr  iesflain 

!  txtPropFacID-Text  =  cFacil i ty . FacID 

!  txtCity -Text  =  cFaci lity -  City 

!  txtState-Text  =  cFaci 1 ity • State 

! txtZipCode • Text  =  cFaci 1 ity • ZipCode 
End  Uith 

Call  DisplayPropFaci lityUnitNames 
End  Sub 

Public  Sub  LoadPropFacilityUICBox (ByRef  cFacID  As  String) 
cProcName  =  "GET_PROPOSED_FACILITY_UIC_INFO" 
Dim  i  As  Integer 
Dim  rsFaci 1 ityUICs  As  Recordset 

Set  rsFacilityUICs  =  dbAcropol is • OpenRecordset ( Tbl_Val idateUIC  dbOpenTable-, 
dbReadOnly) 

frmAriesflainlcboUIC  Clear 
With  rsFacilityUICs 

•  PloveFirst 

Do  Until  -EOF 

If  cFacID  =  !Fac_ID  Then 

frmAriesllain !  cboUIC  Addltem  !UIC 

End  If 

•  MoveNext 
Loop 

•  Close 
End  With 

'Test  whether  any  Units  are    assigned 
Uith  f rmAr iesdain 

If  Not  icboUICListCount  =  D  Then 
IcboUICText  =  !  cboUIC  •  List  (D) 
Else 

IcboUICText  =  "-NONE-" 
End  If 

•  Refresh 
End  Uith 

Set  rsFacilityUICs  =  Nothing 
End  Sub 

Public  Sub  DisplayPropFaci 1 ityUnitNames ( ) 

cProcName  =  "DISPLAY_PROPOSED_FACILITY_UNITNAMESn 

Dim  i  As  Integer 

Dim  rsFaci 1 itylnf o  As  Recordset 

Dim  rsFaci 1 ityUnit  As  Recordset 

Set  rsFaci 1 itylnf o  =  dbAcropol is • OpenRecordset (Tbl_Val idateUICn  dbOpenTablei 
dbReadOnly) 

Uith  f rmAriesflain 

rsFacilitylnfo. Index  =  "UIC" 
!  lstbxUnitName- Clear 


If  Not  IcboUIC-ListCount  =  D  Then 

For  i  =  D  To  IcboUICListCount  -  1 

rsFacilitylnfo. Seek  "  =  "-.  !  cboUIC  List  (  i  ) 
If  Not  rsFacilitylnfo • NoMatch  Then 

! lstbxUnitName- Addltem  rsFaci 1 itylnf o ! UIC  &  vbTab  _ 
&  rsFaci litylnf o ! UnitName 
End  If 
Next  i 
Else 
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IcboUIOText  =  "-NONE-" 

Set  rsFacilityUnit  =  dbAcropolis . OpenRecordset (Tbl_Val idateUnit i 
dbOpenTable-i  dbReadOnly) 

rsFacilityLlnit-Index  =  "FACID" 
rsFacilityUnit. Seek  "  =  "■>  !  txtPropFacID  .  Text 

If  rsFacilityUnit . NoMatch  Then 

! IstbxUnitName.Addltem  "**  NOT  AVAILABLE  **" 
Else 

ilstbxUnitName-Addltem  rsFacilityUnitlUnitName 
End  If 

rsFacilityUnit -Close 
End  If 
.  Refresh 
End  With 

rsFacilitylnfo- Close 
Set  rsFacilitylnfo  =  Nothing 
Set  rsFacilityUnit  =  Nothing 
End  Sub 

Public  Sub  DisplayTreeViewInf o (ByRef  tflapFacIDs ( )  As  Inf oTool_Type i  _ 
ByVal  Index  As  Long) 

cProcName  =  "DISPLAY_TREEVIEU_INFO" 
Dim  rsFaci 1 ityUICs  As  Recordset 
Dim  bUICExists  As  Boolean 
Dim  nodeGIS  As  Node 
Dim  i  As  Integer 
Dim  j  As  Integer 
Dim  cFacID  As  String  *  5 
ReDim  cKey(Index)  As  String  *  5 

Set  rsFacilityUICs  =  dbAcropolis  •  OpenRecordset  (Tbl_Val  idateUId  dbOpenTable-i 
dbReadOnly) 

With  f rmAriesflain 

! trvGISData • Enabled  =  True 

Set  nodeGIS  =  !  trvGISData  .  Nodes  .  Add  ( i  ,  "ROOT"-,  "USARC  :  GeoREF") 

For  i  =  Clnt(Index)  To  1  Step  -1 

cKey(i)  =  tdapFacIDs ( i ) -GeoFacID 
cFacID  =  tllapFacIDs(i) -GeoFacID 

Set  nodeGIS  =  !  trvGISData  •  Nodes  •  Add  ("ROOT"  -,  tvwChild-.  CStr  (cKey  (  i  )  ) -. 
cFacID) 

nodeGIS ■ Expanded  =  True 

bUICExists  =  False 
rsFacilityUICs-PloveFirst 
Do  Until  rsFacilityUICs- EOF 

If  cFacID  =  rsFacilityUICs!Fac_ID  Then 

Set  nodeGIS  =  !  trvGISData  .  Nodes  -  Add  (  cKey  (  i  )  ■>  tvwChild-.  •> 
rsFacilityUICslUIC) 

nodeGIS • Expanded  =  True 
bUICExists  =  True 
End  If 

rsFacilityUICs-tloveNext 
Loop 

If  Not  bUICExists  Then 

Set  nodeGIS  =  !  trvGISData  ■  Nodes  ■  Add  (  cKey  (  i  )  -.  tvwChildn  -.  "None") 
nodeGIS • Expanded  =  True 
End  If 
Next  i 

nodeGIS. EnsureV is ible 
•  Refresh 

rsFacilityUICs- Close 
Set  rsFacilityUICs  =  Nothing 
End  With 
End  Sub 
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Public  Sub  LoadMovUIClistbox (ByRef  cflovUic  As  MovingUnit_Type ) 
cProcName  =  "LOAD_ri0VUIC_LISTB0X" 

Dim  iUnitNameLength  As  Byte 
Dim  ctlnitName  As  String 

cUnitName  =  cflovUic -UnitName 
iUnitNameLength  =  Len  (cLIni  tName) 

With  f  rmAriesflain  !  lstbxflovUIC 
•  Clear 

•Enabled  =  True 

.Addltem  "FacID:   "  8  cflovUic  FacID 
.Addltem  " " 

If  iUnitNameLength  >  Ifl  Then 
■  Addltem  Left  (cUnitName -,  Ifl) 

If  iUnitNameLength  >  3b  Then 

•  Addltem  did  (  cUnitName ->  ll-i  Ifl) 

•  Addltem  Right  ( cUnitName-i  (iUnitNameLength  -  3b)) 
Else 

•  Addltem  Right  (cUnitName -.  (iUnitNameLength  -  Ifl)) 
End  If 

Else 

•Addltem  cUnitName 
End  If 


Addltem 


•  Addltem  cflovUic  •  City 

•  Addltem  cflovUic  •  State  & 
End  With 

End  Sub 


&  cflovUic-ZipCode 


Public  Sub  LoadFacilityListBox(ByVal  Index  As  Integers  ByVal  rsValidFacID 
As  Recordset-.  ByVal  iUIC_Flag  As  Byte) 
cProcName  =  "LOAD_FACILITY_LISTBOX" 

Dim  iUnitNameLength  As  Byte 
Dim  cUnitName  As  String 

cUnitName  =  rsVal idFacID ! UnitName 
iUnitNameLength  =  Len (cUnitName ) 

'Display  Facility  specific  information 
Uith  frmAriesdain! lstbxFacID( Index) 

•  Clear 
•Enabled  =  True 

If  iUIC_Flag  =  D  Then 

•Addltem  "UIO  "  &  rsVal idFacID ! UIC 
Else 

•Addltem  "UIC:  "  8  "-NONE-" 
End  If 

•  Addltem  " " 

'Parse  Unitname  to  fit  Listbox  w/out  needing  scrollbars 
If  iUnitNameLength  >  Ifl  Then 
•  Addltem  Left  (cUnitName  -.  Ifl) 

If  iUnitNameLength  >  3b  Then 

•  Addltem  Mid  (  cUnitName  -.  IT-,  Ifl) 

•  Addltem  Right  (  cUnitName -.  (iUnitNameLength  -  3LO) 
Else 

•Addltem  Right ( cUnitName t  (iUnitNameLength  -  Ifl)) 
End  If 


Else 


Addltem  cUnitName 
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End  If 

'Display  Cityn  Staten  Zip  information 
.Addltem  " " 


•Addltem  rsVal idFacID ! City 
•Addltem  rsVal idFacID ! State  & 
End  blith 
End  Sub 


&  rsValidFacID!Zip 


Public  Sub  DisplayStatus  (ByVal  cflessage  As  Stringn  Index  As  Byte) 

With  frmAriesHain!fraStatus( Index) 
If  Not  -Enabled  Then 
•Enabled  =  True 

•  Refresh 
End  If 

End  With 

With  frmAriesriain!  IstbxStatus  (Index) 
If  Not  (-Visible)  Then 
•Visible  =  True 

•  Refresh 
End  If 

If  Not  (Len(f rmAriesllain ! txtStatus ( Index ) )  =  D)  Then 

•  Addltem  frmAriesflain!  txtStatus  (Index)  -Text 

•  Refresh 
End  If 

End  With 

With  frmAriesHain! txtStatus (Index) 

•  Text    =    cflessage 

•  Refresh 

If  Not  (cMessage  =  CompleteMSG)  Then 

Call  IncrementProgressBar 
Else 

•Enabled  =  False 

•  Refresh 
End  If 

End  With 

Call  ElapsedTimer (Time$ ( ) ) 
End  Sub 

Public  Sub  IncrementProgressBar ( ) 

On  Error  Resume  Next 

iProgressIndicator  =  iProgressIndicator  +  1 
frmAriesHain  !  barSt2Lstatus  •  Value  =  iProgressIndicator 
frmAriesllain  !fraS(3Lstatus- Refresh 
End  Sub 

Public  Sub  BuildAccessTable (ByVal  cTableName  As  Stringi  cfldefnName  As  String! 
cfldefText  As  String) 
cProcName  =  "BUILD_ACCESS_TABLEn 

Dim  qdSflL  As  QueryDef 

On  Error  GoTo  EH_BuildTable 

'Build  SQL  fluery  definition  for  Recordset  Object 

Set  qdSflL  =  dbAcropolis  •  CreateflueryDef  (  cfidef  nName  ■>  cfldefText) 

dbAcropol is . Execute  cfldefnName 

'Delete  fluery  Definition  &  Table 
dbAcropol is .QueryDefs- Delete  cfldefnName 

Exit  Sub 
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EH_BuildTable:   'Error  Handler 
Select  Case  Err. Number 

Case  ERR_0b jectExists    'Delete  the  Pre-Existing  fluery  Definition 
dbAcropol  is -QueryDefs- Delete  ctfdefnName 
Resume 

Case  ERR_TableExists     'Delete  the  Pre-Existing  Table 
Call  DeleteAccessTable(cTableName) 
Resume 

Case  Else    'Trap  all  other  Errors  8  Report 
Call  0utputERR0R_LOG 
Resume  Next 
End  Select 
End  Sub 

Public  Sub  DeleteAccessTable(ByVal  cTableName  As  String) 
cProcName  =  "DELETE_ACCESS_TABLE" 

Dim  qdDropTable  As  QueryDef 
Dim  cDropTableDef n  As  String 

On  Error  GoTo  EH_DeleteTable 

cDropTableDefn  =  "Drop  Table  "  8  cTableName 

Set  qdDropTable  =  dbAcropolis  •  CreatedueryDef  ( <2def_DropTable  n  cDropTableDefn) 
dbAcropol  is -Execute  (2def_DropTable 

dbAcropol  is  -dueryDefs-  Delete  <2def_DropTable 

Exit  Sub 

EH_DeleteTable: 

Select  Case  Err-Number 
Case  ERR_0b jectExists 

dbAcropol is -flueryDefs- Delete  Qdef_DropTable 
Resume 

Case  ERR_TableNotExists 
Resume  Next 

Case  Else 

Call  OutputERR0R_LOG 
Resume  Next 
End  Select 
End  Sub 


Public  Sub  ElapsedTimer(ByVal  cTime  As  String) 
Dim  iHourNow  As  Long 
Dim  illinuteNow  As  Long 
Dim  iSecondNow  As  Long 

Dim  iStartHour  As  Long 
Dim  iStartHinute  As  Long 
Dim  iStartSecond  As  Long 

Dim  iElapsedTime  As  Long 
Dim  iStartTime  As  Long 
Dim  iNowTime  As  Long 

Dim  cElapsedTime  As  String  *  8 

iHourNow  =  CLng  (Lef  t  (cTime-.  2)) 
iMinuteNow  =  CLng  (flid  (cTime  i  M -.  2)) 
iSecondNow  =  CLng ( Right (cTime n  E)) 

iStartHour  =  CLng (Lef t (cfiueryStartTime t  2)) 
iStartHinute  =  CLng  (flid  (cflueryStartTime  i  Mi  2)) 
iStartSecond  =  CLng (Right (cflueryStartTime t  2)) 
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iStartTime  =  (iStartHour  *  3b00)  +  ( iStartflinute  *  bO)  +  iStartSecond 
iNowTime  =  (iHourNow  *  3bD0)  +  (iflinuteNow  *  bO)  +  iSecondNow 

iElapsedTime  =  iNowTime  -  iStartTime 

cElapsedTime  =  FormatTime ( iElapsedTime ) 

With  f rmAriesllain 

! AriesStatusBar- Panels (3) -Text  =  "Elapsed  "  &  cElapsedTime 

•  Refresh 
End  With 
End  Sub 

Public  Sub  TimeDelay (ByVal  cTime  As  Stringi  _ 
ByVal  iTimeDelay  As  Integer) 
cProcName  =  "TIt1E_DELAY" 
Dim  iSecond  As  Integer 
Dim  iflinute  As  Integer 
Dim  iNowNinute  As  Integer 
Dim  iNowSecond  As  Integer 

Dim  iExitTime  As  Integer 
Dim  bRol loverFlag  As  Boolean 

bRol loverFlag  =  False 

iSecond  =  CInt ( Right (cTime n  2)) 

it1inute  =  CInt(riid(cTime-.  M -,  E))  +  1 

iExitTime  =  iSecond  +  iTimeDelay 
If  iExitTime  >  51  Then 

iExitTime  =  iExitTime  -  ST 

bRol loverFlag  =  True 
End  If 

iNowSecond  =  CInt  (Right  (Time*  () -.  E)  ) 
If  bRol loverFlag  Then 

iNowMinute  =  CInt  (Hid  (Time*  ()  -,  H  -.  2)) 
Do 

iNowflinute  =  CInt  (Ilid  (  Time*  () -.  M  ■>  E)  ) 
iNowSecond  =  CInt  (Right  (  Time*  () -.  E)  ) 
Loop  While  iNowflinute  <  iflinute 
Else 
Do 

iNowSecond  =  CInt  (Right  (  Time*  () -■  E)) 
Loop  While  iNowSecond  <  iExitTime 
End  If 
End  Sub 
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Module  5.  OLE  PROCEDURES  LIBRARY 


Purpose:  A     library     module     that     contains     all     the     procedures     supporting     OLE 

communications  between  COTS  components. 

Source  Type:  Visual  Basic  for  Applications 

Source  File:     OLE_LIBRARY.BAS 

Code  Listing: 

Attribute  VB_Name  =  "libOLE" 
Option  Explicit 

Public  Function  ConnectOLEob ject (ByRef  objOLE  As  Objectn  ByVal  cOLEob jectName 
As  String)  As  Boolean 
cProcName  =  TUNC  :  0PEN_0LE_0BJECT" 

On  Error  Resume  Next 

'Set  Boolean  Flags 
ConnectOLEob ject  =  True 
Set  objOLE  =  Nothing 

'Initiate  a  new  instance 

Set  objOLE  =  CreateOb ject ( cOLEob jectName ) 

'Verify  OLE  connection  established 

If  objOLE  Is  Nothing  Then        'OLE  Error 

Call  DisplayMessage  (  OLEf  ai  ledMSG  ■.  vbExclamationi  vbOKi  conOLEcaption) 

ConnectOLEob ject  =  False 
Else 

objOLE- Visible  =  False 
End  If 

DoEvents 

End  Function 

Public  Function  OpenLDUob  ject ( ) 

cProcName  =  "FUNC : 0PEN_LDU_0B JECT" 
Dim  cFilePath  As  String 

On  Error  GoTo  EH_OpenLDL) 

OpenLDblob  ject  =  True 

cFilePath  =  FILE_LDb) 

'Determine  if  an  Instance  of  LDb)  already  running 

iLDUwinID  =  FindUindow  (Class_LDb)  i  vbNullStr ing ) 

If  iLDUwinID  Then 

Call  ResetLDUobject 
Else 

iLDUwinID  =  Shel  1  (  cFi  lePath-.  vbNormalFocus  ) 

frmAriesMain ! mnuFCloseLDU  -Enabled  =  True 

'Clear  LDU  Splash  Screen 

SendKeys  "-",  True 
End  If 
Exit  Function 

EH_OpenLDU:  'LDU  Failed  to  Load  properly. 

OpenLDUob ject  =  False 
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End  Function 

Public  Function  Veri  f  yLDblob  jectConnection  (ByVal  cMessageText  As  String)  As 
Boolean 
Dim  iLDb)_hlilnd  As  Long 

iLDb)_hlilnd  =  FindUindow  (Class_LDb)  n  vbNullString) 
If  iLDb)_hUnd  =  D  Then 

Veri fyLDUob jectConnection  =  False 

Call  Displayflessage  (cMessageTextn  vbCriticali  vbOKOnlyn  conAPIcaption ) 
Else 

VerifyLDUob jectConnection  =  True 

ShowWindow  iLDId_hL)nd  i  Sld_t1inimum 

ShowWindow  iLDU_hldnd  ■>  SU_Normal 
End  If 
End  Function 

Public  Sub  InitializeHapInf odenu( ) 
cProcName  =  "INITIALIZEJIAPJIENU" 

objGeoSelect-Do  "Create  Menu  ""HapperShortcut""  ID  17  As  ""(-""  " 

End  Sub 

Public  Sub  Initial  izetlaplnf  oToolbar  ( ) 
cProcName  =  "INITIALIZE_riAP_TOOL_BARn 

objGeoSelect-Do  "Create  ButtonPad  ""InfoTool""  As  "  8  _ 

"ToolButton  ID  5D1  DrawMode  3M  Calling  OLE  ""Processlnf oToolButton""" 

End  Sub 

Public  Sub  Initializellaplnf  oStatusBar  ( ) 
cProcName  =  "INITIALIZE_riAP_STATUS_BAR" 

ob jGeoSelect • Do  "Set  Hap  Display  Zoom" 

objGeoSelect-Do  "Alter  Menu  Item  ID  11D1  Check" 

objGeoSelect-Do  "Alter  Menu  Item  ID  1102  UnCheck" 

objGeoSelect-Do  "Alter  Menu  Item  ID  11D3  UnCheck" 

End  Sub 

Public  Sub  OpenUS_StatesLayer ( ) 

cProcName  =  "DISPLAY_US_STATES_LAYER" 

Dim  cFilePath  As  String 

cFilePath  =  Chr(3M)  &  App-Path  8  FILE_States  8  Chr(3M) 
objGeoSelect-Do  "Open  Table  "  8  cFilePath  8  "  Interactive" 

End  Sub 

Public  Sub  OpenUSARC_GeoRefLayer( ) 

cProcName  =  "DISPLAY_USARC_GEOREF_LAYER" 

Dim  cFilePath  As  String 

cFilePath  =  Chr(3M)  8  App-Path  8  FILE_GeoREF  8  Chr(3M) 
objGeoSelect-Do  "Open  Table  "  8  cFilePath  8  "  Interactive" 

End  Sub 

Public  Sub  OpenStateCapi talsLayer ( ) 

cProcName  =  "DISPLAY  STATE  CAPITALS  LAYER" 


Dim  cFilePath  As  String 

cFilePath  =  Chr(3M)  8  App-Path  8  FILE_StateCapitals  8  Chr(3M) 
ob jGeoSelect-Do  "Open  Table  "  8  cFilePath  8  "  Interactive" 
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End  Sub 

Public  Sub  OpenMa jorCityLayer ( ) 

cProcName  =  "DISPLAY_MA JOR_CITIES_LAYER" 

Dim  cFilePath  As  String 

cFilePath  =  Chr(3M)  8  App-Path  8  FILEJIa jorCi ty  &  ChrOM) 
objGeoSelect-Do  "Open  Table  "  a  cFilePath  &  "  Interactive" 

End  Sub 

Public  Sub  DisplaytlapLabels  (  ) 

cProcName  =  "DISPLAY_MAP_LABELS" 

ob jGeoSelect -  Do  "flap  From  Statecap-.  City_lE5-,  Georef-,  States" 
iMapInf  olilinID  =  CLng (ob jGeoSelect . Eval ("FrontUindow ( ) "  )  ) 
objGeoSelect-Do  "Set  (lap  Redraw  Off" 

'State  Capitals  layer  Labels  8  Symbols 

objGeoSelect-Do  "Set  Map  Layer  ""Statecap""  Display  Global  Selectable  Off  " 

ob jGeoSelect-Do  "Set  Map  Layer  ""Statecap""  Label  Auto  On  Overlap  On  "  &  _ 

"Duplicates  On   With  Proper* (Capital )  " 
objGeoSelect-Do  "Set  Map  Layer  ""Statecap""  Label  Line  Simple  "  _ 

8  "Position  Above  Offset  3  Font  (""Arial""-,  flD3-.fl-,fl3flfltJDfl-,lt.777ElS)  " 

S  "Global  Symbol  (35-,  Ib711bfl0-,  lfl)  " 
objGeoSelect-Do  "Set  Map  Layer  ""Statecap""  Label  Visibility  Zoom  (MDD-, 
EDOO)" 

8  "  Units  ""mi""" 

'Major  City  layer  Labels  8  Symbols 

objGeoSelect-Do  "Set  Map  Layer  ""City_lE5""  Display  Global  Selectable  Off  " 

objGeoSelect-Do  "Set  Map  Layer  nnCity_125""  Label  Auto  On  Overlap  On  "  8  _ 

"Duplicates  On   With  Proper*  (City )  Zoom  (D-,  30DD)  Units  ""mi""  On  " 
objGeoSelect-Do  "Set  Map  Layer  ""City_lE5""  Label  Line  Simple  "  _ 

8  "Position  Above  Offset  3  Font  (""Arial""-,  ETl  -,10-,  lb77b1b0-,0 )  " 

8  "Global  Symbol  (Mb-.  lb77b1bD-,  IE)  " 
ob  jGeoSelect-Do  "Set  Map  Layer  ""City_lE5""  Label  Visibility  Zoom  (E50-. 
10D0)" 

8  "  Units  ""mi""" 

'GeoREF  layer  Labels  8  Symbols 

ob jGeoSelect-Do  "Set  Map  Layer  ""Georef""  Display  Global  Selectable  On  " 

ob jGeoSelect-Do  "Set  Map  Layer  ""Georef""  Label  Auto  On  Overlap  On  "  8  _ 

"Duplicates  Off   With  Proper*  ( Fac_city)  Zoom  (D->  SDD)  Units  ""mi""  On  " 
ob jGeoSelect-Do  "Set  Map  Layer  ""Georef""  Label  Line  Simple  "  _ 

8  "Position  Above  Right  Offset  3  Font  (""Arial""-.  aD3-.10-.3E7bfl-.lt.777SlS)" 

a  "  Pen  (E-,m-,3E7bfl)  Global  Symbol  (MS-,  3E7bfl-,  lfl)  " 
objGeoSelect-Do  "Set  Map  Layer  ""Georef""  Label  Visibility  Zoom  (D-i  7DD)  "  _ 
8  "Units  ""mi""" 

'States  layer  Labels 

objGeoSelect -Do  "Set  Map  Layer  ""States""  Selectable  Off  Label  Line  Simple  " 

ob jGeoSelect-Do  "Set  Map  Layer  ""States""  Label  Auto  On  Overlap  On  "  _ 

8  "Duplicates  On  Offset  0  " 

ob jGeoSelect-Do  "Set  Map  Layer  ""States""  Label  With  Proper* (State )  " 

objGeoSelect-Do  "Set  Map  Layer  ""States""  Label  Font  (""Bookman  Old  Style""-.' 

8  "lAE7-,lfi-,0-,lb777E15)  " 
objGeoSelect-Do  "Set  Map  Layer  ""States""  Label  Visibility  Zoom  (1DD-,  EQDD)  ' 

8  "Units  ""mi""" 

ob jGeoSelect-Do  "Set  Map  Redraw  On" 
End  Sub 

Public  Sub  Posi tionMap ( ) 
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cProcName 


'POSITION  MAP' 


ob jGeoSelect  -  Do  "Hap  From  Statecapi  City_lEST  Georefn  States" 
objGeoSelect-Do  "Set  Map  Center  (-Tb-i37)  Zoom  35DD  Units  ""mi' 
objGeoSelect-Do  "Set  Map  Layer  D  Editable  On" 

End  Sub 

Public    Sub    llaplnf  ofluery  (By  Val    cFacID    As    String) 
cProcName    =    "riAPINF0_<2UERY" 


Dim  i  As  Byte 

Dim  cFilePath  As  String 

Dim  rsProposedFaci 1 ity  As  Recordset 


'Loop  Variable 


Set  rsProposedFacility  =  dbAcropol is . OpenRecordset (ExTbl_PropFaci 1 ity i 

dbOpenDynaset ) 

With  rsProposedFacility 

'Delete  Previous  Proposed  Facilities 
Do  Until  .EOF 

•Delete 

• MoveNext 
Loop 
'Output  Proposed  Facility  ID  to  External  Database 

•  AddNew 
!Fac_ID  =  cFacID 

•  Update 

•  Close 
End  With 

Set  rsProposedFacility  =  Nothing 

objGeofluery • Visible  =  True 
If  Not  bflapBasicRunning  Then 

cFilePath  =  Chr(3M)  &  App-Path  8  FILE_Mapb]orkspace  &  Chr(3M) 

ob jGeofluery . Do  "Run  Application  "  &  cFilePath 
End  If 

cFilePath  =  Chr(3H)  &  App-Path  &  FILEJIapBasic  &  Chr(3M) 
f rmAriesdain ! tabAr iesdap • Tab  =  1 

ob jGeotfuery . Do  "Run  Application  "  S  cFilePath 
bMapBasicRunning  =  True 

Call  DisplayStatusCAreaGlAHSG-.  GISNonSOLFramelndex ) 
Call  DisplayStatustArealRRflSG-,  GISNonSQLFramelndex ) 
Call  DisplayStatus(AreaQriAnSG->  GISNonSflLFramelndex ) 


End  Sub 


Public  Sub  OutputAr iesheasuresExcel (ByRef  afleasuresO  As  Measures_Type i  ByVal 
iFacIndex  As  Byte) 
cProcName  =  "OUTPUT_ARIES_MEASURES_EXCEL" 

Dim  objUorkSht  As  Object 
Dim  cFilePath  As  String 

Dim  i  As  Byte 
Dim  j  As  Byte 

On  Error  GoTo  EH_Ex  eel  Pleasures 

Screen  •  riousePointer  =  vbHourglass 

If  ConnectOLEob ject ( ob jExcel n  "Excel • Appl ication")  Then 
objExcel • Visible  =  True 
objExcel • Workbooks. Add 

Set  objUorkSht  =  objExcel • ActiveSheet 
With  objUorkSht 
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•  cells(ji    50)-Value    =    alleasures  (  i  )  .  FacBacklogdNaint 

•  cells(JT    ED-Value    =    arieasures  (  i  )  .  AreaLossRate 

DoEvents 
Next  i 

■  cells(Mi  1). Value  =  "J10VING  UNIT" 

End  With 

cFilePath  =  App-Path  &  FILE_Excel 
SendKeys  "X.FAn-i  True 
SendKeys  cFilePathn  True 

SendKeys  "'/.tn ■>    True 

SendKeys  "{downMdownMdown}"  n  True 

SendKeys  nV.Sn -i  True 

SendKeys  "ZY-"-.  True 

If  Not  objExcel  Is  Nothing  Then 

objExcel-ActiveUorkBook. Close  False 
End  If 

objExcel • Quit 

Set  objExcel  =  Nothing 
End  If 
Screen ■ HousePointer  =  vbDefault 

Exit  Sub 

EH_Excelf1easures : 

Call  0utputERR0R_L0G 

Set  objUorkSht  =  Nothing 
End  Sub 

Public  Sub  ResetLDUob jectO 

cProcName  =  "RESET_LDbJ_OB  JECT" 

If  VerifyLDUob jectConnection ( APIf ai ledflSG )  Then 

SendKeys  n5CFN"-i  True 

SendKeys  "5jN"-i  True 

DoEvents 
End  If 
End  Sub 

Public  Sub  ImportLDUdataC ) 
Dim  cFilePath  As  String 
Dim  iLDb)_hb)nd  As  Long 

If  bLDUactive  Then 

VerifyLDUobjectConnection  (APIfailedflSG) 

'Load  LDU  Template  File 

cFilePath  =  App-Path  &  FILE_LDU_Template 

SendKeys  n5iF0nn  True 

SendKeys  cFilePathn  True 

SendKeys  "-CENTER}-CENTER>n -.  True 

DoEvents 

'Import  Excel  Tab  delimited  file 

cFilePath  =  App-Path  &  FILE_LDld_Excel 

SendKeys  "V.FI"-,  True 

SendKeys  "-CtabMtabMdownMtabMdownHdownMdownMdown}--''-.  True 

SendKeys  cFilePath!  True 

SendKeys  "V.YV.S'/.N'/.O"-.  True 

DoEvents 

Call  SendCommentsLDU 

'Save  Temp  file  of  Imported  measure  comparisions 
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cFilePath  =  App.Path  8  FILE_LDW_Def aul tSave 
SendKeys  "*FA"-,  True 
SendKeys  cFilePath-.  True 
SendKeys  "J£Y"-i  True 
DoEvents 
End  If 
End  Sub 

Public  Sub  SendCommentsLDIiJ  ( ) 

Dim  rsFaci 1 itylnf o  As  Recordset 

Dim  i  As  Byte 

Dim  j  As  Byte 

Dim  cFacID  As  String  *  5 

Dim  cCity  As  String 

Dim  cState  As  String  *  S 

On  Error  GoTo  EH_Comment 

Set  rsFaci  litylnf  o  =  dbAcropol  is  .  OpenRecordset  (Tbl_Val  idateUnit  ■,    dbOpenTable -i 
dbReadOnly) 

blith  rsFacilitylnf o 
•Index  =  "FACID" 

For  i  =  0  To  M 

•Seek  "  =  "-,  aFacID(i) 
If  Not  -NoHatch  Then 
cFacID  =  !Fac_ID 
cCity  =  !City 
cState  =  IState 

'Send  location  information  to  LDli) 
SendKeys  "*EI1~n-,  True 
For  j  =  D  To  i 

SendKeys  "{down}"-.  True 
Next  j 

SendKeys  "--CTabMTabMTab}"-,  True 
SendKeys  cFacIDi  True 
SendKeys  "-"■,  True 

SendKeys  cCity  8  "  ■>   n  8  cState-,  True 
SendKeys  "-CtabMtabD--" 
End  If 
Next  i 
End  With 
Set  rsFaci litylnf o  =  Nothing 

Exit  Sub 

EH_Comment : 
Exit  Sub 
End  Sub 

Public  Sub  ViewLDUmatrixC  ) 
Dim  iLDU_hUnd  As  Long 


If  bLDUactive  Then 

VerifyLDUobjectConnection  (APIfailedflSG) 

DoEvents 

SendKeys  "V.vn-"-,  True 
End  If 
End  Sub 


Public  Sub  ActivateLDUReports( ) 

'Print  ARIES  Model  Hierarchy  w/  Global  weights 

SendKeys  ">.\ilZ"  ■,    True 

SendKeys  "V.H-[down>G" -.  True 

Call  TimeDelay(Time<?(  )  ■>  2) 

SendKeys  "V.FP"-,  True 

Call  TimeDelay(Time$( )  -.  2)       '  2  second  delay 
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SendKeys  "--"-,  True 

Call  TimeDelay  (Time$( )  ■>  13)      '13  Second  delay 

'Print  ARIES  Model  Stacked  bar  ranking 

SendKeys  "V.SB"-.  True 

Call  TimeDelay (Time$ () t  2)       '2  Second  delay 

SendKeys  " -"  ■>    True 

SendKeys  ">.FP~"-,    True 


Call  TimeDelay(Time$( )  -.  5) 


'5  Second  delay 


'Print  ARIES  Model  Comment  Summary 
SendKeys  "'/.R00-"-.  True 
SendKeys  "^FP"-.  True 


Call  TimeDelay  (Time$( ) -,  S) 


'5  Second  delay 


'Change  Printer  Setup  for  Landscape  Mode 

SendKeys  ">.FR'/.L~"  ->  True 

Call  TimeDelay (Time$ () n  1)       '1  Second  delay 

'Print  ARIES  Model  Preference  Set  Summary 
SendKeys  ""/.SP-"-.  True 
SendKeys  n*/.FP"i  True 


Call  TimeDelay(Time$()  -,  5) 


'5  Second  delay 


'Print  ARIES  Model  Ranking  results  matrix 
SendKeys  "*SMM~n-,  True 
SendKeys  "V.FP"-,  True 


Call  TimeDelay(Time$()  •,  5) 


'5  Second  delay 


'Change  Printer  Setup  for  Portrait  Mode 
SendKeys  "'/.FR>.R~"  ■>    True 

Call  TimeDelay (Time* () n  1)       '1  Second  delay 
End  Sub 


238 


Module  6.  OLE  OBJECT  CLASS  DEFINITION 


Purpose:  An  object  class  description  necessary  for  communicating  with  the  integrated 

Maplnfo  component. 

Source  Type:  Visual  Basic  for  Applications 

Source  File:     OLECALLBACK.CLS 

Code  Listing: 

VERSION    1.0    CLASS 

BEGIN 

MultiUse  =  -1   'True 
END 

Attribute  VB_Name  =  "clsOLECallback" 
Attribute  VB_Creatable  =  False 
Attribute  VB_Exposed  =  True 
Option  Explicit 

Private  Function  GetField (ByVal  theStr  As  String!  ByVal  delimiter  As  String!  _ 
ByVal  whichField  As  Integer)  As  String 
cProcName  =  "FUNC : GET_FIELD" 

Dim  i  As  Integer 

Dim  startPos  As  Integer 

Dim  argCount  As  Integer 

Dim  tmpStrn  result  As  String 

'*  if  the  input  string  was  null-,  or  they  asked  for  a  field  *  less  than  li 
'*  return  an  empty  string  as  the  result 

If  Len(theStr)  =  0  Or  whichField  <  1  Then 
GetField  =  nn 
Exit  Function 
End  If 

'*  loop  through  til  we  get  the  field  we  want-  If  the  string  contains  fewer 
'*  fields  than  the  field  number  requested!  a  zero-length  string  is  returned- 

argCount  =  0 

tmpStr  =  theStr 

Do 

argCount  =  argCount  +  1 

result  =  Lef t$ (tmpStr t  InStr ( tmpStr t  delimiter)  -  1) 

tmpStr  =  Hid$ ( tmpStr t  InStr ( tmpStr i  delimiter)  +  1) 
Loop  While  InStr( tmpStr i  delimiter)  >  0  And  argCount  <  whichField 

'*  if  we  dropped  out  of  the  while  loop  because  InStrO  returned  0i  and 
'*  we  haven't  gotten  to  the  desired  field  yetn  take  one  more  step  in  case 
'*  we  are    actually  looking  for  the  last  field  in  the  string- 
If  argCount  <  whichField  Then 
argCount  =  argCount  +  1 
result  =  tmpStr 
End  If 

'*  if  we  found  our  fieldi  argCount  will  equal  whichField.  return  the 
'*  result  stringi  otherwise!  return  a  zero-length  string 

If  argCount  =  whichField  Then 
GetField  =  result 

Else 
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GetField  =  "" 
End  If 


End  Function 
************************************************************************* 
ProcessInfoToolButton 

This  method  is  called  when  the  custom  tools  defined  in  Maplnfo 
in  the  "InitializeMapInf oConnection"  are  used  in  the  map  window. 
This  method  determines  which  tool  was  used  (  a  point  select  tooln 
and  a  rectangle  select  tool  ) -.  and  performs  the  appropriate  action 
******************************************************************************* 


Public  Sub  Processlnf oToolButton (ByVal  Commandlnf oText  As  String) 
cProcName  =  "PR0CESS_T00L_BUTT0N" 

Dim  iSelectedButton  As  Integer 

Dim  fXpt  As  Double 

Dim  fYpt  As  Double 

Dim  nHits  As  Long 

'Verify  that  the  Windows  Message  came  from  Maplnfo 

'If  it  did  come  from  Maplnfon  strip  off  the  "MI:"  prefix: 

If  Lef t^CCommandlnfoText-.  3)  =  "MI:"  Then 

Commandlnf  oText  =  Mid$  (  Commandlnf  oTexti  4i  TTT1!) 
Else 

Exit  Sub 
End  If       'Determine  which  Tool  Selected 

iSelectedButton  =  CInt  (GetField  (  Commandlnf  oText-,  "■,"■,  CMD_INF0_T00LBTN  )  ) 
Select  Case  iSelectedButton 
Case  SD1       'info  tool 

fXpt  =  CDbl(GetField(CommandInfoText-,  "-,"-,  CMD_INF0_X))      '*  get  x 
and  y 

fYpt  =  CDbKGetFieldCCommandlnfoText-,  "■,"-,  CMD_INF0_Y))      '*  from 
Commandlnf o 

Call  DisplaySelectedFacilityCfXpt!  fYpt) 
End  Select 

End  Sub 

Private  Sub  DisplaySelectedFacility (ByVal  fXpt  As  Double-.  ByVal  fYpt  As 
Double) 
cProcName  =  "DISPLAY_SELECTED_FACILITYn 

Dim  nHits  As  Long 

Dim  iRecNum  As  Long 

Dim  i  As  Long 

Dim  tMapHitsO  As  Inf oTool_Type 

Dim  tFacilitylnf o  As  Faci 1 ity_Type 

Dim  rsGeoREFdata  As  Recordset 


'Get  number  of  "Hits"  using  the  MapBasic  function  -GSearchPoint  ( )  > 

'FORMAT:  nHits  =  SearchPoint(  mapUinID-.  x -.  y  ) 

nHits  =  CLng(ob  jGeoSelect  •  Eval  ("SearchPoint  ("  &  iMapInf  oUinID  &  "-."  a  fXpt  & 

"->"  &  fYpt  &  ")")  ) 

Set  rsGeoREFdata  =  dbAcropol  is  •  OpenRecordset  (Tbl_Val  idateUnit  ■,    dbOpenTablen 
dbReadOnly) 


rsGeoREFdata- Index 


"FACID" 


With  frmAriesMain 

! txtPropFacID- Clear 
ItrvGISData- Nodes- Clear 
iPropFacIDctr  =  D 

If  Not  (nHits  =  D)  Then 
ReDim  tMapHits (nHits ) 


'there  were  hits:  scan  using  "Searchlnfo' 
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For  i  =  1  To  nHits 

tMapHits(i)  .flapTable  =  ob jGeoSelect -Eval ("Searchlnf o ("  &  i  &  "->"  & 
SEARCH_INFO_TABLE  8  ")") 

iRecNum  =  CLng  (  ob  jGeoSelect  -Eval  ("Searchlnf  o  ("  a  i  a  "-,"  a 
SEARCH_INF0_R0b]  a  ")")) 

ob jGeoSelect-Do  "Fetch  Rec  "  a  iRecNum  a  "  from  "  a 
tllapHits(i)  .flapTable 

triapHits(i) -GeoFacID  =  ob  jGeoSelect  ■  Eval  ( tflapHi  ts  (  i  )  .  MapTable  8 
n.colln) 

ItxtPropFacID-Addltem  triapHits(i)  -GeoFacID 
Next  i 

'Get  &  Display  Proposed  Facility  Data 

tFacilitylnfo-FacID  =  !  txtPropFacID . List (D) 

Call  GetPropFacilitylnf o ( tFacilitylnf ot  rsGeoREFdata) 

Call  DisplayPropFacilitylnfo(tFacilitylnfo) 

Call  DisplayTreeViewInfo(tl1apHits(  ) -.  nHits) 

If  (nHits  =  1)  Then 

! spinFacIDbtn . Visible  =  False 
Else 

! spinFacIDbtn • Visible  =  True 
End  If 
Else      'No  Facility  Selected  -  Clear  all  Proposed  Facility  fields 
IcboUIOClear 
! IstbxUnitName- Clear 

! lstbxUnitName-Addltem  "**  NO  FACILITY  SELECTED  **" 
ItxtCity  =  vbNullString 
ItxtState  =  vbNullString 
ItxtZipCode  =  vbNullString 
End  If 
End  With 
End  Sub 


' ***** ******** ********************************************************* 
SetStatusText 

This  is  a  standard  method  that  Maplnfo  looks  for  in  its  Callback 
object.  If  flaplnfo  finds  this  method  in  the  Callback  objecti  it 
will  get  called  automatically  every  time  the  text  in  tlaplnfo's 
status  bar  text  changes.  The  string  passed  in  is  a  tab-delimited 
string  containing  each  of  the  status  bar  "Fields'^  i-e-  -  the 
first  field  is  the  zoom!  scalei  or  cursor  location!  the  second  field 
is  the  editable  layern  etc 
********************************************************************** 


Public  Sub  SetStatusText (ByVal  cStatusText  As  String) 
cProcName  =  "SET  STATUS  TEXT" 


Dim  cNewText  As  String 

cNewText  =  GetField  (cStatusText  i  vbTab-,  1) 
delimited  string 


'*  get  first  field  in  tab- 


If  Not  (cNewText  =  "")  Then 

frmAriesdain ! AriesStatusBar ■ Panels ( M )• Text  =  cNewText 
End  If 


End  Sub 
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Module  7.  MAPBASIC  PUBLIC  DECLARATIONS 


Purpose:  A    library    module    that    initializes    all    public    variables    and    constants    for 

communicating  with  the  integrated  mapping  component. 


Source  Type:  Visual  Basic  for  Applications 


Source  File:     libMAPBASIC.BAS 


Code  Listing: 


Attribute  VB  Name  =  "libMAPBASIC 


Haplnfo  version  M • 0  -  System  defines 


This  file  contains  defines  useful  when  programming  in  the  MapBasic 
language-   There  are    three  versions  of  this  file: 

MAPBASICDEF   -  MapBasic  syntax 

MAPBASICBAS   -  Visual  Basic  syntax 

MAPBASIC- H     -  C/C++  syntax 


The  defines  in  this  file  are  organized  into  the  following  sections: 
General  Purpose  defines: 

Macros!  Logical  constants-.  Angle  conversion!  Colors 
ButtonPadlnf o ( )  defines 
ColumnlnfoO  defines 
Commandlnf o ( )  defines 
FileAttrO  defines 
IntersectNodes ( )  parameters 
LayerlnfoC)  defines 
MapperlnfoO  defines 

Menultemlnf oBylD ( )  and  Menultemlnf oByHandler ( )  defines 
Ob jectGeography ( )  defines 
ObjectlnfoO  defines 
SearchlnfoO  defines 
Selectionlnf o ( )  defines 
Server  statement  and  function  defines 
StringCompare ( )  return  values 
StyleAttrO  defines 
SystemlnfoO  defines 
TablelnfoC)  defines 
Uindowlnf o ( )  defines 
Abbreviated  list  of  error  codes 
Backward  Compatibility  defines 


This  file  is  converted  into  MAPBASICH  by  doing  the  following: 

-  concatenate  MAPBASICDEF  and  MENU-DEF  into  MAPBASICH 

-  search  8  replace  "'"  at  begining  of  a  line  with  "//" 

-  search  &  replace  "Define"  at  begining  of  a  line  with  "#define" 

-  delete  the  following  sections: 

*  General  Purpose  defines:  Macrosi  Logical  Constants!  Angle 
Conversions 

*  Abbreviated  list  of  error  codes 

*  Backward  Compatibility  defines 

*  Menu  constants  whose  names  have  changed 

*  Obsolete  menu  items 


This  file  is  converted  into  MAPBASICBAS  by  doing  the  following: 

-  concatenate  MAPBASICDEF  and  MENU-DEF  into  MAPBASICBAS 

-  search  a  replace  "Define  <name>"  with  "Global  Const  <name>  =" 

e.g.  "<Define  {t!-z1  +  >  +-Ct!-zl>"  with  "Global  Const  \0  =  \1"  using  Brief 
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-  delete  the  following  sections: 

*  General  Purpose  defines:  flacrosi  Logical  Constants!  Angle 
Conversions 

*  Abbreviated  list  of  error  codes 

*  Backward  Compatibility  defines 

*  Henu  constants  whose  names  have  changed 

*  Obsolete  menu  items 


General  Purpose  defines 


Colors 


Global  Const  BLACK  =  D 

Global  Const  WHITE  =  lb777E15 

Global  Const  RED  =  Ib711bfl0 

Global  Const  GREEN  =  bSEflD 

Global  Const  BLUE  =  E55 

Global  Const  CYAN  =  b5535 

Global  Const  MAGENTA  =  Ib7in35 

Global  Const  YELLOW  =  lb77bTbO 


'  ButtonPadInfo( )  defines 


Global  Const  BTNPAD_INFO_FLOATING  =  1 

Global  Const  BTNPAD_INFO_blIDTH  =  5 

Global  Const  BTNPAD_INFO_NBTNS  =  3 

Global  Const  BTNPAD_INFO_X  -  M 

Global  Const  BTNPAD_INFO_Y  =  5 

Global  Const  BTNPAD_INFO_blINID  =  b 


'  ColumnlnfoO  defines 


Global  Const  C0L_INF0_NAHE  =  1 

Global  Const  C0L_INF0_NUM  =  5 

Global  Const  C0L_INF0_TYPE  =  3 

Global  Const  C0L_INF0_WIDTH  =  M 

Global  Const  COL_INFO_DECPLACES 

Global  Const  C0L_INF0_INDEXED  = 

Global  Const  COL  INFO  EDITABLE  = 


=  5 


'  Column  type  definesi  returned  by  Columnlnf o (<col_ref > n  C0L_INF0_TYPE ) 
r 

Global  Const  COL_TYPE_CHAR  =  1 

Global  Const  COL_TYPE_DECIHAL  =  2 

Global  Const  COL_TYPE_INTEGER  =  3 

Global  Const  COL_TYPE_SriALLINT  =  ^ 

Global  Const  COL_TYPE_DATE  =  5 

Global  Const  COL_TYPE_LOGICAL  =  b 

Global  Const  COL_TYPE_GRAPHIC  =  7 

Global  Const  COL  TYPE_FLOAT  =  fl 


'  Commandlnf o ( )  defines 

'=_■  =  =  =  =  _■_•_■  =  _•  =  =  _■  =  =  =  =  _■  =  =  =  =  =  =  =  -■_■  =  _•_■  =  _■  = 

Global  Const  CI1D_INF0_X  =  1 

Global  Const  CMD_INF0_Y  =  B 

Global  Const  CriD_INFO_SHIFT  =  3 

Global  Const  CMD_INFO_CTRL  =  M 

Global  Const  CI1D_INF0_X2  =  5 

Global  Const  Cf1D_INF0_YS  =  b 

Global  Const  Ct1D_INF0_T00LBTN  =  7 

Global  Const  CnD_INFO_n,ENUITEM  =  fl 

Global  Const  CMD_INFO_JIIN  =  1 

Global  Const  CflD  INFO  SELTYPE  =  1 
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Global    Const  CriD_INF0_R0UID    =    2 

Global    Const  CnD_INFO_INTERRUPT    = 

Global    Const  CriD_INFO_STATllS    =    1 

Global    Const  CnD_INFO_HSG    =    1D0D 

Global    Const  CI1D_INF0_DLG_OK    =    1 

Global    Const  CI1D_INF0_DLG_DBL    =    1 

Global    Const  Cf1D_INF0_FIND_RC    =    3 

Global    Const  CI1D_INF0_FIND_R0UID    = 

Global    Const  CriD_INF0_XCI1D    =    1 

Global    Const  CMD_INF0_CUST0I1_0BJ    = 

Global    Const  CMD_INFO_TASK_SliJITCH 


=  1 


'  Task  Switchi  returned  by  Commandlnf  o  (CriD_INFO_TASK_SUITCH) 


Global  Const  SUITCHING_0UT_0F_riAPINF0  =  D 
Global  Const  SUITCHING_INT0_f1APINF0  =  1 


'  FileAttrO  defines 


Global  Const  FILE_ATTR_riODE  =  1 
Global  Const  FILE  ATTR  FILESIZE 


'  File  Access  modes-,  returned  by  FileAttr  (<f  ile_id>  ■.  FILE_ATTR_I10DE) 

i 

Global  Const  MODE_INPUT  =  D 

Global  Const  M0DE_0UTPUT  =  1 

Global  Const  J10DE_APPEND  =  2 

Global  Const  H0DE_RAND0n  =  3 

Global  Const  MODE  BINARY  =  *1 


'  IntersectNodes  ( ob  jl-i  obj2->  mode)  parameters 


Global  Const  INCL_CROSSINGS  =  1 
Global  Const  INCL_COI1f10N  =  b 
Global  Const  INCL  ALL  =  7 


LayerlnfoO  defines 


Global 

Const 

LAYER 

INFO  NAME  =  1 

Global 

Const 

LAYER. 

INFO  EDITABLE  =  2 

Global 

Const 

LAYER. 

INFO  SELECTABLE  =  3 

Global 

Const 

LAYER 

INFO  ZOOn  LAYERED  = 

M 

Global 

Const 

LAYER 

_iNFo_zoon_riiN  =  s 

Global 

Const 

LAYER. 

_iNFo_zoon_riAx  =  b 

Global 

Const 

LAYER. 

INFO  COSMETIC  =  7 

Global 

Const 

LAYER. 

INFO  PATH  =  A 

Global 

Const 

LAYER. 

INFO  DISPLAY  =  1 

Global 

Const 

LAYER. 

INFO  OVR  LINE  =  ID 

Global 

Const 

LAYER. 

INFO  OVR  PEN  =  11 

Global 

Const 

LAYER 

INFO  OVR  BRUSH  =  12 

Global 

Const 

LAYER. 

INFO  OVR  SYMBOL  =  13 

Global 

Const 

LAYER. 

INFO  OVR  FONT  =  1M 

Global 

Const 

LAYER. 

INFO  LBL  EXPR  =  IS 

Global 

Const 

LAYER. 

INFO  LBL  LT  =  lb 

Global 

Const 

LAYER. 

INFO  LBL  CURFONT  =  17 

Global 

Const 

LAYER 

INFO  LBL  FONT  =  IB 

Global 

Const 

LAYER 

INFO  LBL  PARALLEL  = 

n 

Global 

Const 

LAYER 

INFO  LBL  POS  =  2D 

Global 

Const 

LAYER 

INFO  ARROUS  =  21 

Global 

Const 

LAYER 

INFO  NODES  =  22 

Global 

Const 

LAYER 

INF0_CENTR0IDS  =  23 

Global 

Const 

LAYER 

INFO  TYPE  =  21 

Global 

Const 

LAYER 

INFO  LBL  VISIBILITY 

=  25 

Global 

Const 

LAYER 

INF0_LBL_Z00n_MIN  = 

2b 

Global 

Const 

LAYER 

_INF0_LBL_Z00M_MAX  = 

27 
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Global  Const  LAYER_INFO_LBL_AUTODISPLAY  =  Efi 

Global  Const  LAYER_INFO_LBL_OVERLAP  =  ET 

Global  Const  LAYER_INFO_LBL_DUPLICATES  =  3D 

Global  Const  LAYER_INFO_LBL_OFFSET  =  31 

Global  Const  LAYER  INFO  LBL  MAX  =  3E 


Display  Modes-,  returned  by  LayerlnfoO  for  LAYER_INFO_DISPLAY 


Global  Const  LAYER_INFO_DISPLAY_OFF  =  D 

Global  Const  LAYER_INFO_DISPLAY_GRAPHIC  =  1 

Global  Const  LAYER_INFO_DISPLAY_GLOBAL  =  E 

Global  Const  LAYER  INFO  DISPLAY  VALUE  =  3 


Label  Linetypes-i  returned  by  LayerlnfoO  for  LAYER_INFO_LBL_LT 


Global  Const  LAYER_INFO_LBL_LT_NONE  =  D 
Global  Const  LAYER_INFO_LBL_LT_SIMPLE  =  1 
Global  Const  LAYER  INFO  LBL  LT  ARROW  =  S 


'  Label  Positions-,  returned  by  LayerlnfoO  for  LAYER_INFO_LBL_POS 


Global 

Const 

LAYER 

INFO 

LBL 

POS 

cc 

= 

D 

Global 

Const 

LAYER 

INFO 

LBL 

POS 

TL 

= 

1 

Global 

Const 

LAYER 

INFO 

LBL 

POS 

TC 

= 

E 

Global 

Const 

LAYER 

INFO 

LBL 

POS 

TR 

= 

3 

Global 

Const 

LAYER. 

INFO 

LBL 

POS 

CL 

= 

M 

Global 

Const 

LAYER 

INFO 

LBL 

POS 

CR 

= 

5 

Global 

Const 

LAYER. 

INFO 

LBL 

POS 

BL 

= 

b 

Global 

Const 

LAYER 

.INFO. 

LBL 

POS 

BC 

= 

7 

Global 

Const 

LAYER 

INFO 

LBL 

POS 

BR 

= 

a 

'  Layer  Types-,  returned  by  LayerlnfoO  for  LAYER_INFO_TYPE 
i 

Global  Const  LAYER_INFO_TYPE_NORMAL  =  0 

Global  Const  LAYER_INFO_TYPE_COSMETIC  =  1 

Global  Const  LAYER_INF0_TYPE_II1AGE  =  E 

Global  Const  LAYER  INFO  TYPE  THEMATIC  =  3 


'  Label  visibility  modes-,  returned  by  LayerlnfoO  for  LAYER_INFO_LBL_VISIBILITY 
r __ ____ 

Global  Const  LAYER_INFO_LBL_VIS_OFF  =  1 
Global  Const  LAYER_INFO_LBL_VIS_ZOOM  =  E 
Global  Const  LAYER  INFO  LBL  VIS  ON  =  3 


MapperlnfoO  defines 


Global 

Const 

MAPPER 

INFO  ZOOM  =  1 

Global 

Const 

MAPPER 

INFO  SCALE  =  E 

Global 

Const 

MAPPER 

INFO  CENTERX  =  3 

Global 

Const 

MAPPER 

INFO  CENTERY  =  M 

Global 

Const 

MAPPER 

INFO  MINX  =  5 

Global 

Const 

MAPPER 

INFO  MINY  =  b 

Global 

Const 

MAPPER 

INFO  MAXX  =  7 

Global 

Const 

MAPPER 

INFO  MAXY  =  fi 

Global 

Const 

MAPPER 

INFO  LAYERS  =  T 

Global 

Const 

MAPPER 

INFO  EDIT  LAYER  =  ID 

Global 

Const 

MAPPER 

INFO  XYUNITS  =  11 

Global 

Const 

MAPPER 

INFO  DISTUNITS  =  IE 

Global 

Const 

MAPPER. 

INFO  AREAUNITS  =  13 

Global 

Const 

MAPPER 

INFO  SCROLLBARS  =  1M 

Global 

Const 

MAPPER 

INFO  DISPLAY  =  IS 

Global 

Const 

MAPPER 

INFO  NUM  THEMATIC  =  lb 

Global 

Const 

MAPPER 

.INFO  COORDSYS_CLAUSE  = 

Global 

Const 

MAPPER 

INFO  COORDSYS  NAME  =  Ifl 

17 
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'  Display  nodes-,  returned  by  flapper-Info  ( )  for  MAPPER_INFO_DISPLAY 
r __. 

Global  Const  MAPPER_INFO_DISPLAY_SCALE  =  D 
Global  Const  MAPPER_INFO_DISPLAY_ZOOM  =  1 
Global  Const  MAPPER  INFO  DISPLAY  POSITION  =  E 


'    Menultemlnf oBylD ( )  and  Menultemlnf oByHandler ( )  defines 

Global  Const  MENUITEM_INFO_ENABLED  =  1 

Global  Const  nENUITE(1_INF0_CHECKED  =  E 

Global  Const  MENUITEM_INFO_CHECKABLE  =  3 

Global  Const  nENUITEM_INFO_SHOUHIDEABLE  =  M 

Global  Const  MENUITEM_INFO_ACCELERATOR  =  5 

Global  Const  MENUITEM_INFO_TEXT  =  b 

Global  Const  MENUITEM_INFO_HELPMSG  =  7 

Global  Const  MENUITEn_INFO_HANDLER  =  A 

Global  Const  r1ENUITE!1_INF0_ID  =  1 


'  Ob jectGeography ( )  defines 


Global 

Const 

OBJ 

GEO 

MINX  =  1 

Global 

Const 

OBJ 

GEO 

LINEBEGX  =  1 

Global 

Const 

OBJ 

GEO 

POINTX  =  1 

Global 

Const 

OBJ 

GEO 

MINY  =  E 

Global 

Const 

OBJ 

GEO 

LINEBEGY  =  E 

Global 

Const 

OBJ 

GEO 

POINTY  =  E 

Global 

Const 

OBJ 

GEO 

MAXX  =  3 

Global 

Const 

OBJ 

GEO 

LINEENDX  =  3 

Global 

Const 

OBJ 

GEO 

MAXY  =  H 

Global 

Const 

OBJ 

GEO 

LINEENDY  =  M 

Global 

Const 

OBJ 

GEO 

ARCBEGANGLE  = 

S 

Global 

Const 

OBJ 

GEO 

TEXTLINEX  =  5 

Global 

Const 

OBJ 

GEO 

ROUNDRADIUS  = 

S 

Global 

Const 

OBJ 

GEO 

ARCENDANGLE  = 

b 

Global 

Const 

OBJ 

GEO 

TEXTLINEY  =  b 

Global 

Const 

OBJ 

GEO 

TEXTANGLE  =  7 

Ob jectlnf o( )  defines 


Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

Global 

Const 

OBJ 

INFO 

TYPE  =  1 

PEN  =  E 
.SYMBOL  =  E 
.TEXTFONT  =  E 
.BRUSH  =  3 

NPNTS  =  ED 
.TEXTSTRING  =  3 

SMOOTH  =  M 
.FRAMEWIN  =  M 

NPOLYGONS  =  El 
.TEXTSPACING  =  ^ 

TEXTJUSTIFY  =  5 
.FRAMETITLE  =  b 

TEXTARROU  =  b 


'  Object  types-,  returned  by  Ob  jectlnf  o  (<obj>->  OB  J_INFO_TYPE ) 
i ___. 

Global  Const  OBJ_TYPE_ARC  =  1 

Global  Const  OB J_TYPE_ELLIPSE  =  E 

Global  Const  OB J_TYPE_LINE  =  3 

Global  Const  OB J_TYPE_PLINE  =  M 

Global  Const  OB J_TYPE_POINT  =  5 

Global  Const  OB J_TYPE_FRAME  =  b 

Global  Const  OB J_TYPE_REGION  =  7 

Global  Const  OBJ  TYPE_RECT  =  6 
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Global  Const  OB J_TYPE_ROUNDRECT 
Global  Const  OBJ  TYPE  TEXT  =  ID 


'  SearchlnfoO  defines 


Global  Const  SEARCH_INFO_TABLE  =  1 
Global  Const  SEARCH_INF0_R0U  =  5 


'  Selectionlnf o (  )  defines 


Global  Const  SEL_INFO_TABLENAME  =  1 
Global  Const  SEL_INFO_SELNAriE  =  E 
Global  Const  SEL_INF0_NR0WS  =  3 


Server  statement  and  function  defines 


Return  Codes 


Global  Const  SRV_SUCCESS  =  D 

Global  Const  SRV_SUCCESS_blITH_INFO  = 

Global  Const  SRV_ERR0R  =  -1 

Global  Const  SRV_INVALID_HANDLE  =  -E 

Global  Const  SRV_NEED_DATA  =  ^ 

Global  Const  SRV  N0_I10RE_DATA  =  1DD 


Special  values  for  the  status  associated  with  a  fetched  value 


Global  Const  SRV_NULL_DATA  =  -1 
Global  Const  SRV  TRUNCATED  DATA 


'  Server  ColumnlnfoO  Attr  defines 


Global  Const  SRV_C0L_INF0_NAf1E  =  1 

Global  Const  SRV_COL_INFO_TYPE  =  E 

Global  Const  SRV_COL_INFO_blIDTH  =  3 

Global  Const  SRV_COL_INFO_PRECISION 

Global  Const  SRV_COL_INFO_SCALE  =  5 

Global  Const  SRV_COL_INFO_VALUE  =  b 

Global  Const  SRV  C0L_INF0_STATUS  =  ' 


=  M 


'  Column  typesi  returned  by  Server_ColumnInf o (<stmt>i<colno> iSRV_C0L_INF0_TYPE ) 
r 

Global  Const  SRV_COL_TYPE_NONE  =  D 

Global  Const  SRV_COL_TYPE_CHAR  =  1 

Global  Const    SRV_C0L_TYPE_DECII1AL    =    E 

Global  Const  SRV_COL_TYPE_INTEGER  =  3 

Global  Const  SRV_COL_TYPE_SMALLINT  =  ^ 

Global  Const  SRV_COL_TYPE_DATE  =  5 

Global  Const  SRV_COL_TYPE_LOGICAL  =  b 

Global  Const  SRV_COL_TYPE_FLOAT  =  fl 

Global  Const  SRV_COL_TYPE_FIXED_LEN_STRING  =  lb 

Global  Const  SRV  COL_TYPE_BIN_STRING  =  17 


'  Server  DriverlnfoO  Attr  defines 


Global  Const  SRV_DRV_INFO_NAME  =  1 
Global  Const  SRV_DRV_INFO_NAME_LIST  = 
Global  Const  SRV  DRV  DATA_SOURCE  =  3 


'  Fetch  Directions  used  by  Server_Fetch( ) 


248 


Global  Const  SRV_FETCH_NEXT  =  -1 

Global  Const  SRV_FETCH_PREV  =  -E 

Global  Const  SRV_FETCH_FIRST  =  -3 

Global  Const  SRV  FETCH  LAST  =  -M 


'    StringCompare  (<str_l>-«  <str_E>)  return  values 


Global  Const  STR_LT  =  -1 
Global  Const  STR_GT  =  1 
Global  Const  STR  E<2  =  0 


'  StyleAttrO  defines 


Global 

Const 

PEN  WIDTH  =  1 

Global 

Const 

PEN  PATTERN  =  E 

Global 

Const 

PEN  COLOR  =  M 

Global 

Const 

BRUSH  PATTERN  =  1 

Global 

Const 

BRUSH  F0REC0L0R  =  2 

Global 

Const 

BRUSH  BACKCOLOR  =  3 

Global 

Const 

FONT  NANE  =  1 

Global 

Const 

FONT  STYLE  =  E 

Global 

Const 

FONT  POINTSIZE  =  3 

Global 

Const 

FONT  F0REC0L0R  =  M 

Global 

Const 

FONT  BACKCOLOR  =  5 

Global 

Const 

SYMBOL  CODE  =  1 

Global 

Const 

SYMB0L_C0L0R  =  E 

Global 

Const 

SYMBOL  POINTSIZE  =  3 

Global 

Const 

SYMBOL  ANGLE  =  M 

Global 

Const 

SYMBOL_FONT_NAME  =  5 

Global 

Const 

SYMBOL_FONT_STYLE  =  b 

Global 

Const 

SYMBOL  KIND  =  7 

Global 

Const 

SYMBOL  CUSTOM  NAME  =  fl 

Global 

Const 

SYMBOL_CUSTOM_STYLE  =  ^ 

Symbol  kinds  returned  by  StyleAttr  (<symbol> -,  SYMBOL_KIND) 


Global  Const  SYMBOL_KIND_VECTOR  =  1 
Global  Const  SYMBOL_KIND_FONT  =  5 
Global  Const  SYMBOL  KIND  CUSTOM  =  3 


'  Systemlnfo ( )  defines 


Global 

Const 

SYS 

INFO 

PLATFORM  =  1 

Global 

Const 

SYS 

INFO 

APPVERSION  =  E 

Global 

Const 

SYS 

INFO 

MIVERSION  =  3 

Global 

Const 

SYS 

INFO 

RUNTIME  =  M 

Global 

Const 

SYS 

INFO 

.CHARSET  =  5 

Global 

Const 

SYS 

INFO 

COPYPROTECTED  =  b 

Global 

Const 

SYS 

INFO 

APPLICATIONUND  =  7 

Global 

Const 

SYS 

INFO 

DDESTATUS  =  fl 

Global 

Const 

SYS 

INFO 

MAPINFOWND  =  T 

Global 

Const 

SYS 

INFO 

NUMBER  FORMAT  =  ID 

Global 

Const 

SYS 

INFO 

DATE  FORMAT  =  11 

Global 

Const 

SYS 

INFO 

DIG  INSTALLED  =  IE 

Global 

Const 

SYS 

INFO 

DIG  MODE  =  13 

Global 

Const 

SYS. 

INFO 

MIPLATFORM  =  1M 

Global 

Const 

SYS 

INFO 

MDICLIENTUND  =  15 

Platform-,  returned  by  Systemlnfo  (SYS_INFO_PLATFORM ) 


Global  Const  PLATFORM_SPECIAL 

Global  Const  PLATFORMJJIN  =  1 

Global  Const  PLATFORM_MAC  =  E 

Global  Const  PLATF0RM_M0TIF  = 

Global  Const  PLATFORM  Xll  =  M 


=  0 
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Global  Const  PLATFORH  XOL  =  S 


'  Version-,  returned  by  Systemlnf  o  (SYS_INF0_mPLATF0RI1) 


Global 

Const 

niPLATFORn_SPECIAL  =  0 

Global 

Const 

niPLATFORnjdlNlfc.  =  1 

Global 

Const 

niPLATF0Rn_UIN32  =  E 

Global 

Const 

niPLATF0Rf1_P0UERriAC  =  3 

Global 

Const 

dlPLATFORrWIACbflK  =  M 

Global 

Const 

niPLATFORMJHP  =  5 

Global 

Const 

t1IPLATF0Rf1_SUN  =  b 

'  Tabl 

eInfo( 

defines 

' ===== 

======= 

1========================================================== 

====== 

Global 

Const 

TAB  INFO  NAME  =  1 

Global 

Const 

TAB  INFO  NUM  =  E 

Global 

Const 

TAB  INFO  TYPE  =  3 

Global 

Const 

TAB_INF0_NC0LS  =  M 

Global 

Const 

TAB_INFO_riAPPABLE  =  S 

Global 

Const 

TAB  INFO  READONLY  =  t> 

Global 

Const 

TAB_INFO_TEMP  =  7 

Global 

Const 

TAB_INF0_NR0US  =  A 

Global 

Const 

TAB_INFO_EDITED  =  T 

Global 

Const 

TAB_INFO_FASTEDIT  =  ID 

Global 

Const 

TAB_INF0_UND0  =  11 

Global 

Const 

TAB  INFO  MAPPABLE  TABLE  =  IE 

Global 

Const 

TAB  INFO  USERHAP  =  13 

Global 

Const 

TAB  INFOJJSERBROWSE  =  1M 

Global 

Const 

TAB  INFO  USERCLOSE  =  IS 

Global 

Const 

TAB_INFO_USEREDITABLE  =  Ih 

Global 

Const 

TAB_INFO_USERREHOVEHAP  =  17 

Global 

Const 

TAB  INFO  USERDISPLAYMAP  =  Ifi 

Global 

Const 

TAB_INFO_TABFILE  =  IT 

Global 

Const 

TAB_INFO_niNX  =  ED 

Global 

Const 

TAB_INFO_HINY  =  El 

Global 

Const 

TAB  INFO  NAXX  =  55 

Global 

Const 

TAB  INFO  riAXY  =  E3 

Global 

Const 

TAB  INFO_SEAMLESS  =  EM 

Global 

Const 

TAB  INF0_C00RDSYS_niNX  =  ES 

Global 

Const 

TAB_INF0_C00RDSYS_I1INY  =  Eb 

Global 

Const 

TAB_INF0_C00RDSYS_I1AXX  =  E7 

Global 

Const 

TAB_INF0_C00RDSYS_HAXY  =  Efl 

Global 

Const 

TAB_INF0_C00RDSYS_CLAUSE  =  ST 

Global 

Const 

TAB  INFO  COORDSYS  NAME  =  3D 

Global 

Const 

TAB_INFO_NREFS  =  31 

'  Tabl 

e  type 

defines-,  returned  by  Tablelnf  o  (<tab_ref  >-.  TAB_INFO_TYPE  ) 

Global 

Const 

TAB_TYPE_BASE  =  1 

Global 

Const 

TAB  TYPE  RESULT  =  E 

Global 

Const 

TAB_TYPE_VIEy  =  3 

Global 

Const 

TAB_TYPE_IMAGE  =  ^ 

Global 

Const 

TAB  TYPEJ.INKED  =  S 

'  UindowInfo()  defines 


Global  Const  UIN_INFO_NAHE  =  1 

Global  Const  UIN_INFO_TYPE  =  3 

Global  Const  UIN_INFO_UIDTH  =  M 

Global  Const  UIN_INFO_HEIGHT  =  5 

Global  Const  WIN_INF0_X  =  b 

Global  Const  b)IN_INF0_Y  =  7 

Global  Const  L)IN_INF0_T0Pri0ST  =  fl 

Global  Const  UIN_INFO_STATE  =  T 

Global  Const  WIN_INFO_TABLE  =  10 

Global  Const  UIN_INF0_LEGENDSJ1AP  =  ID 
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Global  Const  L)IN_INF0_0PEN  =  11 

Global  Const  WIN_INFO_WND  =  IB 

Global  Const  WIN_INFO_WINDOWID  =  13 

Global  Const  WIN_INFO_WORKSPACE  =  1M 

Global  Const  WIN_INF0_CL0NEWIND0W  =  IS 

Global  Const  WIN_INFO_SYSMENUCLOSE  =  lb 

Global  Const  WIN  INF0_AUT0SCR0LL  =  17 


'  Window  typesn  returned  by  Uindowlnf o ( <win_id> i  UIN_INFO_TYPE ) 

r 

Global  Const  UIN_HAPPER  =  1 

Global  Const  WIN_BROUSER  =  E 

Global  Const  WINJ.AYOUT  =  3 

Global  Const  WIN_GRAPH  =  M 

Global  Const  WIN_BUTTONPAD  =  11 

Global  Const  UIN_HELP  =  1D01 

Global  Const  UIN_MAPBASIC  =  1002 

Global  Const  bJIN_MESSAGE  =  1DD3 

Global  Const  UIN_RULER  =  1007 

Global  Const  UIN_INF0  =  lOOfi 

Global  Const  UINJ.EGEND  =  1001 

Global  Const  WIN_STATISTICS  =  1010 

Global  Const  WIN_t1APINF0  =  1011 

r _. 

'  Version  2  window  types  no  longer  used  in  version  3  or  version  M 

r_____ 

Global  Const  UIN_T00LPICKER  =  100M 
Global  Const  WIN_PENPICKER  =  1005 
Global  Const  WIN  SYMB0LPICKER  =  100b 


'  Window  statesi  returned  by  Windowlnf o (<win_id> i  WIN_INFO_STATE ) 

r 

Global  Const  WIN_STATE_N0RMAL  -  0 
Global  Const  UIN_STATE_niNiniZED  =  1 
Global  Const  WIN  STATE_t1AXiniZED  =  E 


'    Set  Next  Document  Style  defines 


Global  Const  WIN_STYLE_STANDARD  =  0 

Global  Const  WIN_STYLE_CHILD  =  1 

Global  Const  WIN_STYLE_P0PUP_FULLCAPTI0N 

Global  Const  WIN  STYLE  POPUP  =  3 


end  of  MAPBASIODEF 


Plaplnfo  version  M-0  -  Menu  Item  Definitions 


This  file  contains  defines  useful  when  programming  in  the  flapBasic 
language.   The  definitions  in  this  file  describe  the  standard  Maplnfo 
functionality  available  via  the  "Run  denu  Command"  flapBasic  statement. 


The  defines  in  this  file  are    organized  to  match  the  sequence  of 
declarations  in  the  HAPINF0U • MNU  filei  which  in  turn  reflects  the 
organization  of  the  Maplnfo  menus  and  buttonpads- 


File  &  Send  Mail  menus 


Global  Const  M_FILE_NEU  =  101 

Global  Const  I1_FILE_0PEN  =  102 

Global  Const  M_FILE_0PEN_0DBC  =  lib 

Global  Const  M_FILE_ADD_W0RKSPACE  =  lOfl 

Global  Const  M_FILE_CLOSE  =  103 
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Global  Const  n_FILE_CLOSE_ALL  =  10M 

Global  Const  h\_F  I L  E_S  A  V  E  =  IDS 

Global  Const  n_FILE_SAVE_COPY_AS  =  10b 

Global  Const  n_FILE_SAVEJiJORKSPACE  =  IDT 

Global  Const  M_FILE_SAVE_UINDOU_AS  =  bOT 

Global  Const  M_FILE_REVERT  =  107 

Global  Const  n_FILE_RUN  =  110 

Global  Const  I1_FILE_PAGE_SETUP  =  111 

Global  Const  I1_FILE_PRINT  =  112 

Global  Const  n_FILE_EXIT  =  113 

Global  Const  n_SENDHAIL_CURRENTb)INDOU  =  11M 

Global  Const  fl  SENDMAIL  yORKSPACE  =  115 


'  Edit  menu 


Global  Const  n_E D I T_U N D 0  =  201 

Global  Const  H_EDIT_CUT  =  202 

Global  Const  M_EDIT_C0PY  =  203 

Global  Const  H_EDIT_PASTE  =  20M 

Global  Const  n_EDIT_CLEAR  =  205 

Global  Const  n_EDIT_CLEAR0B J  =  20b 

Global  Const  I1_EDIT_RESHAPE  =  IbOl 

Global  Const  f1_EDIT_NEU_R0U  =  702 

Global  Const  fl  EDIT  GETINF0  =  2D7 


'  Objects  menu 


Global  Const  M_0B JECTS_SET_TARGET  =  IblO 

Global  Const  n_0B JECTS_CLEAR_TARGET  =  Ibll 

Global  Const  n_0B JECTS_C0MBINE  =  lb05 

Global  Const  h_0B JECTS_SPLIT  =  lbl2 

Global  Const  I1_0B  JECTS_ERASE  =  lbl3 

Global  Const  M_0B JECTS_ERASE_0UT  =  IblM 

Global  Const  I1_0B  JECTS_0VERLAY  =  lbl5 

Global  Const  f1_0B JECTS_BUFFER  =  IbOb 

Global  Const  f1_0B JECTS_Sri00TH  =  lb02 

Global  Const  I1_0B  JECTSJJNSHOOTH  =  lb03 

Global  Const  f1_0B  JECTS_CVT_PG0N  =  lb07 

Global  Const  fl  OBJECTS  CVT  PLINE  =  IbOM 


'  Ouery  menu 


Global  Const  I1_ANALYZE_SELECT  =  301 

Global  Const  !1_ANALYZE_S(2L(3UERY  =  302 

Global  Const  M_ANALYZE_SELECTALL  =  303 

Global  Const  n_ANALYZE_UNSELECT  =  30M 

Global  Const  M_ANALYZE_FIND  =  305 

Global  Const  f1_ANALYZE_FIND_SELECTI0N  =  30b 

Global  Const  H  ANALYZE  CALC  STATISTICS  =  30=1 


»______ 

'    Tablei    flaintenance  t    and    Raster    menus 


Global  Const  n_TABLE_UPDATE_C0LUHN    =    MD5 

Global  Const  H_TABLE_APPEND    =    Mil 

Global  Const  H_TABLE_GE0C0DE    =    MD7 

Global  Const  I1_TABLE_CREATE_P0INTS    =    MOfl 

Global  Const  n_TABLE_nERGE_USING_C0LUt1N    =    MOb 

Global  Const  F1_TABLE_II1P0RT    =    M01 

Global  Const  fl_TABLE_EXP0RT    =    MD2 

Global  Const  n_TABLE_HODIFY_STRUCTURE    =    ^40M 

Global  Const  H_TABLE_DELETE    =    M01 

Global  Const  f1_TABLE_RENAt1E    =    MID 

Global  Const  H_TABLE_PACK    =    M03 

Global  Const  n_TABLE_riAKEriAPPABLE    =    M15 
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Global  Const  n_TABLE_UNLINK  =  41b 

Global  Const  M_TABLE_REFRESH  =  417 

Global  Const  I1_TABLE_RASTER_STYLE  =  414 

Global  Const  I1_TABLE_RASTER_REG  =  413 

Global  Const  fl  TOOLS  RASTER  REG  =  173D 


'  Options  menu 


Global  Const  n_FORriAT_PICK_LINE  =  SD1 
Global  Const  n_FORMAT_PICK_FILL  =  50E 
Global  Const  n_F0R!1AT_PICK_SYI1B0L  =  SD3 
Global  Const  n_FORMAT_PICK_FONT  =  5D4 
Global  Const  f1_UIND0U_BUTT0NPAD  =  b05 
Global  Const  H_yiNDOU_LEGEND  =  bOb 
Global  Const  f1_UIND0U_STATISTICS  =  bO? 
Global  Const  n_UINDOW_nAPBASIC  =  bOfl 
Global  Const  H_UINDOU_STATUSBAR  =  bib 
Global  Const  n_F0RMAT_CUST0M_C0L0RS  =  bl? 
Global  Const  n_EDIT_PREFERENCES  =  EOfl 
Global  Const  n_EDIT_PREFERENCES_SYSTEI1  =  E10 
Global  Const  n_EDIT_PREFERENCES_FILE  =  Ell 
Global  Const  M_EDIT_PREFERENCES_I1AP  =  E1E 
Global  Const  n_EDIT_PREFERENCES_COUNTRY  =  E13 
Global  Const  fl  EDIT  PREFERENCES  PATH  =  E14 


'  Window  menu 


Global  Const  n_UIND0W_BR0b)SE    =    bDl 

Global  Const  n_UIND0y_l1AP    =    bOE 

Global  Const  n_UINDOy_GRAPH    =    b03 

Global  Const  M_yiND0y_LAY0UT    =    b04 

Global  Const  n_UINDOy_REDISTRICT    =    blS 

Global  Const  n_yiNDOy_REDRAy    =    blO 

Global  Const  I"MiIINDOIiI_TILE    =    bll 

Global  Const  t1_UIND0y_CASCADE    =    blE 

Global  Const  M_WINDOIil_ARRANGEKONS    =    bl3 

Global  Const  f1_yiND0y_ri0RE    =    bl4 

Global  Const  M    yiNDOy    FIRST    =    bEO 


'  Note:  the  End  through  flOth  windows  can  be  accessed  as 

(n_UINDOy_FIRST+i-l) 

'  Help  menu 

Global  Const    M_HELP_CONTENTS    =    1EDE 

Global  Const    f1_HELP_SEARCH    =    1ED3 

Global  Const    H_HELP_USE_HELP    =    1ED4 

Global  Const    t1_HELP_TECHSUPP0RT    =    1E06 

Global  Const    t1_HELP_C0NNECT_HIF0RUn    =    1E0T 

Global  Const    II    HELP    ABOUT    =    1EDS 


Global    Const    H_HELP_CONTEXTSENSITIVE 
Global    Const    II    HELP    HELPI10DE    =    lEOb 


1E01 


'    Browse    menu 


Global    Const    M_BROySE_PICK_FIELDS    =    704 
Global    Const    M    BROySE    OPTIONS    =    703 


Map    menu 


Global    Const    !1_nAP_LAYER_C0NTR0L    =    flOl 
Global    Const    n_MAP_THEf1ATIC    =    307 
Global    Const    n_f1AP_ri0DIFY_THEnATIC    =    306 
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Global    Const  ri_MAP_CHANGE_VIEIil    =    ADS 

Global    Const  n_nAP_CLONE_riAPPER    =    611 

Global    Const  I1_HAP_PREVI0US    =    60b 

Global    Const  H_riAP_ENTIRE_LAYER    =    flD7 

Global    Const  I1_I1AP_CLEAR_CUST0M_LABELS    =    614 

Global    Const  !1_riAP_SAVE_C0SriETIC    =    601 

Global    Const  l"M1AP_CLEAR_C0SMETIC    =    filD 

Global    Const  n_riAP_SET_CLIP_REGION    =    81S 

Global    Const  n_l1AP_CLIP_REGI0N_0N0FFr    =    613 

Global    Const  n_f1AP_SETUPDIGITIZER    =    603 

Global    Const  f1_t1  A P_0 PTIONS    =    602 


Layout    menu 


Global  Const  M_ 

Global  Const  I1_ 

Global  Const  H. 

Global  Const  H_ 

Global  Const  II. 

Global  Const  H_ 

Global  Const  II. 

Global  Const  II. 

Global  Const  H 


LAYOUT_CHANGE_VIEU  =  102 
LAY0UT_ACTUAL  =  103 
LAY0UT_ENTIRE  =  104 
LAY0UT_PREVI0US  =  105 
LAY0UT_BRING2FR0NT  =  10b 
LAY0UT_SEND2BACK  =  107 
LAY0UT_ALIGN  =  =106 
LAY0UT_DR0PSHAD0US  =  101 
LAYOUT  DISPLAYOPTIONS  =  101 


Graph  menu 


Global  Const  M_GRAPH_TYPE  =  1001 

Global  Const  I1_GRAPH_LABEL_AXIS  =  100B 

Global  Const  I1_GRAPH_VALUE_AXIS  =  1003 

Global  Const  II  GRAPH  SERIES  =  1004 


'  flapBasic  menu 


Global  Const  M_t1APBASIC_CLEAR  =  1101 
Global  Const  fl  nAPBASIC_SAVEC0NTENTS  =  1102 


'  Redistrict  menu 


Global  Const  t1_REDISTRICT_ASSIGN  =  70S 

Global  Const  I1_REDISTRICT_TARGET  =  70b 

Global  Const  I1_REDISTRICT_ADD  =  707 

Global  Const  I1_REDISTRICT_DELETE  =  706 

Global  Const  M  REDISTRICT_0PTI0NS  =  701 


'  flain  Buttonpad 


Global 

Const 

n 

TOOLS 

Global 

Const 

n 

TOOLS 

Global 

Const 

n 

TOOLS 

Global 

Const 

ri 

TOOLS 

Global 

Const 

n 

TOOLS 

Global 

Const 

M 

.TOOLS. 

Global 

Const 

M 

TOOLS 

Global 

Const 

n 

.TOOLS. 

Global 

Const 

n 

.TOOLS. 

Global 

Const 

n 

TOOLS 

Global 

Const 

n 

TOOLS 

SELECTOR  =  1701 

SEARCH_RECT  =  1722 
_SEARCH_RADIUS  =  1703 
_SEARCH_BOUNDARY  =  1704 
.EXPAND  =  1705 

SHRINK  =  170b 

RECENTER  =  1702 

PNT_(2UERY  =  1707 

LABELER  =  1706 

DRAGUINDObl  =  1734 

RULER  =  1710 


'  Drawing  Buttonpad 


Global  Const  H_T00LS_P0INT  =  1711 

Global  Const  H_T00LS_LINE  =  1712 

Global  Const  I1_T00LS_P0LYLINE  =  1713 

Global  Const  11  TOOLS  ARC  =  171b 
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Global  Const  n_T00LS_P0LYG0N  =  171M 

Global  Const  n_T0OLS_ELLIPSE  =  1715 

Global  Const  M_TOOLS_RECTANGLE  =  1717 

Global  Const  I1_T00LS_R01INDEDRECT  =  171fl 

Global  Const  n_T00LS_TEXT  =  1701 

Global  Const  M_T00LS_FRAI1E  =  171T 

Global  Const  M  T00LS_ADD_N0DE  =  1723 


'  Menu  and  ButtonPad  items  that  do  not  appear  in  the  standard  menus 


Global  Const  fLJOOLSJIAPBASIC  =  17E0 
Global  Const  n_T00LS_SEARCH_P0LYG0N  =  1733 


'  end  of  riENU-DEF 
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Module  8.    SPATIAL  SELECTION  PROGRAM 


Purpose:  A  MapBasic  program  that  spatially  selects  the  desired  data  within  50  miles  of  the 

specified  location  and  locates  the  closest  Army  Reserve  support  facilities. 

Source  Type:  MapBasic  Spatial  Application  Development  Language 

Source  File:     ARIESARCH.MBA 

Code  Listing: 


ARIES  SDSS  SPATIAL  SELECTION  PROGRAfl  —  PHASE  One 

EXTRACTS  SELECTED  DATA  FROPI  AROUND  PROPOSED  FACILITY  SITE 

***************************x*********^ 

Include  "c:\mapinfo\mapbasic\mapbasic-def" 
Include  "c:\mapinfo\mapbasic\menu.def" 
Include  "c:\mapinfo\mapbasic\icons.def" 

Declare  Sub  Plain 

Global        Af1SA_ID-.AHSA_Dist-, 
ECS.ID-,  ECS.Dist-. 
RZA_ID-,  RZA_Dist-> 

f ProposedFaci 1 i ty if AreaDistancei  fAreaFacIDi  f AreaZipCodei 
f AreaGlfln f AreaIRR i f AreafldA iTargetZipn  cPropFacID  As  String 

Sub  MAIN 

Dim  FacIDLati  FacIDLong  As  Float 

Dim  ob jAreaBuf f er-iob jDistanceBuf f eri  objGlflBuffer   As  Object 

Dim  iRowNum  As  Integer 

Dim  cFilePathi  AuthStrength  As  String 


cFilePath  =  Appl icationDirectory?  ( ) 

Set  Map  Center  (-Tb-,3?)  Zoom  3500  Units  "mi" 

Create  Index  On  US_Zips ( Zip_Code ) 
Create  Index  on  AMSA (Fac_Zip) 
Create  Index  on  ECS(Fac_Zip) 
Create  Index  on  RZA(Zip) 

Create  Index  on  GEOREF ( Fac_ID) 

Create  Index  on  GlflCUE ( Zip) 

Create  Index  on  IRR(Zipc) 

Create  Index  on  <2f1A(Zip) 

Create  Index  on  Non_Clos (Zip) 

f AreaDistance  =  cFilePath  &  "AriesData\AreaDist . DBF" 
fAreaFacID  =  cFilePath  a  "AriesDataNAreaFac • DBF" 
fAreaZipCode  =  cFilePath  &  "AriesDataNAreaZip . DBF" 
fProposedFacility  =  cFilePath  a  "AriesDataXPropFac . DBF' 

fAreaGlfi  =  cFilePath  8  "AriesDataXAreaGlfl . DBF" 
fAreaIRR  =  cFilePath  a  "AriesData\AreaIRR . DBF" 
fAreaflflA  =  cFilePath  a  "AriesData\Area<2l1A .  DBF" 


Open  Table  f AreaDistance 
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Delete  From  AreaDist 

Open  Table  fAreaFacID 
Delete  From  AreaFac 

Open  Table  f AreaZipCode 
Delete  From  AreaZip 

Open  Table  f ProposedFaci 1 ity 

cPropFacID  =  PropFac ■ Fac_ID 
Pack  Table  PropFac  Data 
Close  Table  PropFac 

Open  Table  fAreaGlfl 
Delete  From  AreaGlfl 

Open  Table  fAreaIRR 
Delete  From  AreaIRR 

Open  Table  fAreadMA 
Delete  From  AreaflMA 


(1)   DETERMINE  LATITUDE  &  LONGITUDE  OF  TARGET  ZIP  CODE 

(E)   CENTER  MAP  AT  TARGET  ZIP 

(3)   CREATE  SDMI  RADIUS  CIRCLE  AROUND  TARGET  ZIP  CODE- 


Find  Using  GEOREF (Fac_ID ) 
Find  cPropFacID 

FacIDLat  =  Commandlnf o (CMD_INF0_X) 
FacIDLong  =  Commandlnf o ( CMD_INF0_Y ) 

Set  CoordSys  Earth 

'Create  Point  (FacIDLat -.  FacIDLong)  Symbol  (5^-,  REDi  EM) 

Insert  Into  Sites  (obj)  Values  (  CreatePoint  (  FacIDLat -.  FacIDLong)) 
Update  Sites  Set  Fac_ID  =  cPropFacID  Where  RowID  =  1 

Set  Map  Center  (FacIDLat  ->FacIDLong )  Zoom  5DD  Units  "mi" 
Set  Distance  Units  "mi" 

ob jAreaBuf f er  =  CreateCircle (FacIDLat iFacIDLong nSO) 
objGlfiBuffer  =  CreateCircle  (FacIDLat -iFacIDLong-,50) 
objDistanceBuf  fer  =  CreateCircle  (FacIDLat -.FacIDLong  t30Q  ) 


BUILD  A  TABLE  OF  ZIPCODES  W/IN  50  MI  OF  THE  PROPOSED 
FACILITY 


Select  Zip_Code  From  US_Zips 

Where  Obj  Within  ob jAreaBuf f er  order  by  Zip_Code  into  TempZip 

Insert  Into  AreaZip 
Select  *  From  TempZip 

Commit  Table  AreaZip 
Pack  Table  AreaZip  Data 


BUILD  A  TABLE  OF  FACILITY  ID'S  lil/IN  5D  MI  OF  THE  PROPOSED 
FACILITY 


Select  Fac_ID  From  GEOREF 

Where  Obj  Within  ob jAreaBuf fer  order  by  Fac_ID  into  TempFacID 
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Insert  Into  AreaFac 

Select  *  From  TempFacID 

Commit  Table  AreaFac 
Pack  Table  AreaFac  Data 


DETERMINE  DISTANCE  TO  NEAREST  RECRUIT  STATION 


Select  *  From  RZA 

Where  Obj  Within  ob jDistanceBuf f er  into  TempRZA 

Select  Distance(CentroidX(obj)-iCentroidY(obj)iFacIDLatiFacIDLong-i"mi") 

"Distance" 
From  TempRZA  order  by  Distance  into  TempRZA_Dist 

RZA_Dist  =  TempRZA_Dist. Distance 


DETERMINE  DISTANCE  TO  NEAREST  AMSA  LOCATION 


Select  *  From  AMSA 

Where  Obj  Within  ob  jDistanceBuf  fer  into  TempAMSA 

Select  Di stance  (CentroidX  (obj)  ->CentroidY  (ob  j  )  nFacIDLat-.FacIDLong-."mi") 

"Distance" 
From  TempAMSA  order  by  Distance  into  TempAMSA_Dist 

AMSA_Dist  =  TempAI1SA_Dist. Distance 


DETERMINE  DISTANCE  TO  NEAREST  EQUIPMENT  SITE 


Select  *  From  ECS 

Where  Obj  Within  ob jDistanceBuf fer  into  TempECS 

Select  Distance(CentroidX(obj)  -.CentroidY  (ob  j  )  -iFacIDLat-iFacIDLong-,"mi") 

"Distance" 
From  TempECS  order  by  Distance  into  TempECS_Dist 

ECS_Dist  =  TempECS_Dist- Distance 


DETERMINE  AUTHORIZED  STRENGTH  OF  THE  NAT  GUARD  UNITS 
WITHIN  5D  MILES  OF  TARGET  ZIP  CODE 

Select  *  From  N0N_CL0S 

Where  Obj  Within  ob jAreaBuf f er  into  TempNGUnits 

Select  SUM(AUTH)"NO_AUTH_NG" 
From  TempNGUnits  into  Strength 

AuthStrength  =  Strength • N0_AUTH_NG 


OUTPUT  AMSA,  ECS,  RZA  DISTANCES  TO  AREA  DISTANCE  FILE 


Insert  into  AreaDist 

Values  (AMSA_Disti  ECS_Dist-,  RZA_Dist,  AuthStrength) 
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Commit  Table  AreaDist 
Pack  Table  AreaDist  Data 


BUILD  A  TABLE  OF  Glfi  Personnel  b)/IN  SD  HI  OF  THE  PROPOSED 
FACILITY 

Select  UIC-,  LEFTS  (ZIP-,5)  "ZIPCODE"-,  PRI  "MOS"  From  GlfiCblE 
Where  Obj  Uithin  objGlflBuffer  and  PRI  <>  "" 
Order  by  UIC-,  ZIP  into  TempGlfi 

Insert  Into  AreaGlfi 
Select  *  From  TempGlfi 

Commit  Table  AreaGlfi 
Pack  Table  AreaGlfi  Data 


BUILD  A  TABLE  OF  IRR  Personnel  lil/IN  50  MI  OF  THE  PROPOSED 
FACILITY 


Select  ZIPC  "ZIP"-.  LEFT$  (PHOS  -.3)  "MOS"  From  IRR 

Where  Obj  Within  ob jAreaBuf f er  and  ZIPC  <>  ""  and  PMOS  <>  "" 

Order  by  Zipc  into  TempIRR 

Insert  Into  AreaIRR 
Select  *  From  TempIRR 

Commit  Table  AreaIRR 
Pack  Table  AreaIRR  Data 


BUILD  A  TABLE  OF  <2MA  Personnel  bl/IN  5D  HI  OF  THE  PROPOSED 
FACILITY 


Select  LEFT$(ZIP-,S)  "ZIPCODE"-,  MWCAT1E-,  MUCAT3A-.  MBCAT1E-,  MBCAT3A-, 

MHCAT1E-,  MHCAT3A  From  (2 fl A 
Where  Obj  Uithin  ob jAreaBuf f er 
Order  by  Zip  into  TempQMA 

Insert  Into  AreaflUA 
Select  *  From  Temp(2MA 

Commit  Table  AreaflMA 
Pack  Table  AreatfMA  Data 


' ******************************************************************* 

•       END  MAIN  PROGRAM 
'******************************************************************* 

Delete  from  Sites 
Commit  Table  Sites 
Pack  Table  Sites  Data 

Exit  Sub 

end  SUB 
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